From 1b2561b0d9cdb37ac433e81f8a014a92d714b3e8 Mon Sep 17 00:00:00 2001 From: Jonas Häggqvist Date: Fri, 16 Nov 2007 20:02:02 +0000 Subject: Move some stuff around so things are actually initialized before using them. Last second changes are evil. git-svn-id: svn://svn.rockbox.org/rockbox/trunk@15646 a1c6a512-1295-4272-9138-f99709370657 --- tools/voice.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'tools') 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 { my $d = new DirHandle $dir; while (my $file = $d->read) { my ($voice, $wav, $mp3); - $voice = $file; - $wav = sprintf("%s.talk.wav", $path); - # Print some progress information if (++$i % 10 == 0 and !$verbose) { print("."); @@ -420,6 +417,10 @@ sub gentalkclips { # Convert to a complete path my $path = sprintf("%s/%s", $dir, $file); + + $voice = $file; + $wav = sprintf("%s.talk.wav", $path); + # Ignore dot-dirs and talk files if ($file eq '.' || $file eq '..' || $file =~ /\.talk$/) { next; -- cgit v1.2.3