summaryrefslogtreecommitdiff
path: root/tools/voice.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tools/voice.pl')
-rwxr-xr-xtools/voice.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/tools/voice.pl b/tools/voice.pl
index b05ae86f3e..8e603308f3 100755
--- a/tools/voice.pl
+++ b/tools/voice.pl
@@ -334,12 +334,16 @@ sub generateclips {
334 my $correctionsfile = dirname($0) . '/voice-corrections.txt'; 334 my $correctionsfile = dirname($0) . '/voice-corrections.txt';
335 my $id = ''; 335 my $id = '';
336 my $voice = ''; 336 my $voice = '';
337 my $cmd = "genlang -o -t=$target -e=$english $langfile 2>/dev/null"; 337 my $cmd = "genlang -o -t=$target -e=$english $language-update.lang 2>/dev/null";
338 my $pool_file; 338 my $pool_file;
339 open(VOICEFONTIDS, "> voicefontids"); 339 open(VOICEFONTIDS, "> voicefontids");
340 my $i = 0; 340 my $i = 0;
341 local $| = 1; # make progress indicator work reliably 341 local $| = 1; # make progress indicator work reliably
342 342
343 # First run the language through an update pass so any missing strings
344 # are backfilled from English. Without this, BADNESS.
345 system("genlang -u -e=$english $langfile > $language-update.lang");
346
343 my $tts_object = init_tts($tts_engine, $tts_engine_opts, $language); 347 my $tts_object = init_tts($tts_engine, $tts_engine_opts, $language);
344 # add string corrections to tts_object. 348 # add string corrections to tts_object.
345 my @corrects = (); 349 my @corrects = ();