diff options
-rwxr-xr-x | tools/voice.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tools/voice.pl b/tools/voice.pl index 337407e187..2c966cb0df 100755 --- a/tools/voice.pl +++ b/tools/voice.pl | |||
@@ -17,6 +17,7 @@ | |||
17 | 17 | ||
18 | use strict; | 18 | use strict; |
19 | use warnings; | 19 | use warnings; |
20 | use utf8; | ||
20 | use File::Basename; | 21 | use File::Basename; |
21 | use File::Copy; | 22 | use File::Copy; |
22 | use vars qw($V $C $t $l $e $E $s $S $i $v $f $F); | 23 | use vars qw($V $C $t $l $e $E $s $S $i $v $f $F); |
@@ -25,8 +26,8 @@ use IPC::Open3; | |||
25 | use Digest::MD5 qw(md5_hex); | 26 | use Digest::MD5 qw(md5_hex); |
26 | use DirHandle; | 27 | use DirHandle; |
27 | use open ':encoding(utf8)'; | 28 | use open ':encoding(utf8)'; |
28 | use open ':std'; | 29 | use Encode::Locale; |
29 | use utf8; | 30 | use Encode; |
30 | 31 | ||
31 | sub printusage { | 32 | sub printusage { |
32 | print <<USAGE | 33 | print <<USAGE |
@@ -562,6 +563,7 @@ sub gentalkclips { | |||
562 | my ($dir, $tts_object, $encoder, $encoder_opts, $tts_engine_opts, $i) = @_; | 563 | my ($dir, $tts_object, $encoder, $encoder_opts, $tts_engine_opts, $i) = @_; |
563 | my $d = new DirHandle $dir; | 564 | my $d = new DirHandle $dir; |
564 | while (my $file = $d->read) { | 565 | while (my $file = $d->read) { |
566 | $file = Encode::decode( locale_fs => $file); | ||
565 | my ($voice, $wav, $enc); | 567 | my ($voice, $wav, $enc); |
566 | my $format = $tts_object->{'format'}; | 568 | my $format = $tts_object->{'format'}; |
567 | 569 | ||