diff options
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/voice.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tools/voice.pl b/tools/voice.pl index 98f67337d4..22a98c1d3c 100755 --- a/tools/voice.pl +++ b/tools/voice.pl | |||
@@ -410,9 +410,6 @@ sub gentalkclips { | |||
410 | my $d = new DirHandle $dir; | 410 | my $d = new DirHandle $dir; |
411 | while (my $file = $d->read) { | 411 | while (my $file = $d->read) { |
412 | my ($voice, $wav, $mp3); | 412 | my ($voice, $wav, $mp3); |
413 | $voice = $file; | ||
414 | $wav = sprintf("%s.talk.wav", $path); | ||
415 | |||
416 | # Print some progress information | 413 | # Print some progress information |
417 | if (++$i % 10 == 0 and !$verbose) { | 414 | if (++$i % 10 == 0 and !$verbose) { |
418 | print("."); | 415 | print("."); |
@@ -420,6 +417,10 @@ sub gentalkclips { | |||
420 | 417 | ||
421 | # Convert to a complete path | 418 | # Convert to a complete path |
422 | my $path = sprintf("%s/%s", $dir, $file); | 419 | my $path = sprintf("%s/%s", $dir, $file); |
420 | |||
421 | $voice = $file; | ||
422 | $wav = sprintf("%s.talk.wav", $path); | ||
423 | |||
423 | # Ignore dot-dirs and talk files | 424 | # Ignore dot-dirs and talk files |
424 | if ($file eq '.' || $file eq '..' || $file =~ /\.talk$/) { | 425 | if ($file eq '.' || $file eq '..' || $file =~ /\.talk$/) { |
425 | next; | 426 | next; |