summaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/voice.pl7
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;