diff options
Diffstat (limited to 'tools/voice.pl')
-rwxr-xr-x | tools/voice.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/voice.pl b/tools/voice.pl index bc076d5386..05ced3a6d9 100755 --- a/tools/voice.pl +++ b/tools/voice.pl | |||
@@ -26,6 +26,7 @@ use Digest::MD5 qw(md5_hex); | |||
26 | use DirHandle; | 26 | use DirHandle; |
27 | use open ':encoding(utf8)'; | 27 | use open ':encoding(utf8)'; |
28 | use open ':std'; | 28 | use open ':std'; |
29 | use utf8; | ||
29 | 30 | ||
30 | sub printusage { | 31 | sub printusage { |
31 | print <<USAGE | 32 | print <<USAGE |
@@ -383,7 +384,7 @@ sub generateclips { | |||
383 | # If we have a pool of snippets, see if the string exists there first | 384 | # If we have a pool of snippets, see if the string exists there first |
384 | if (defined($ENV{'POOL'})) { | 385 | if (defined($ENV{'POOL'})) { |
385 | $pool_file = sprintf("%s/%s-%s.mp3", $ENV{'POOL'}, | 386 | $pool_file = sprintf("%s/%s-%s.mp3", $ENV{'POOL'}, |
386 | md5_hex("$voice $tts_engine $tts_engine_opts $encoder_opts"), | 387 | md5_hex(Encode::encode_utf8("$voice $tts_engine $tts_engine_opts $encoder_opts")), |
387 | $language); | 388 | $language); |
388 | if (-f $pool_file) { | 389 | if (-f $pool_file) { |
389 | printf("Re-using %s (%s) from pool\n", $id, $voice) if $verbose; | 390 | printf("Re-using %s (%s) from pool\n", $id, $voice) if $verbose; |