diff options
Diffstat (limited to 'tools/voice.pl')
-rwxr-xr-x | tools/voice.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tools/voice.pl b/tools/voice.pl index ac7a1b13cd..21c9ab913c 100755 --- a/tools/voice.pl +++ b/tools/voice.pl | |||
@@ -245,6 +245,10 @@ sub voicestring { | |||
245 | # festival_client lies to us, so we have to do awful soul-eating | 245 | # festival_client lies to us, so we have to do awful soul-eating |
246 | # work with IPC::open3() | 246 | # work with IPC::open3() |
247 | $cmd = "festival_client --server localhost --otype riff --ttw --output \"$output\""; | 247 | $cmd = "festival_client --server localhost --otype riff --ttw --output \"$output\""; |
248 | # Use festival-prolog.scm if it's there (created by user of tools/configure) | ||
249 | if (-f "festival-prolog.scm") { | ||
250 | $cmd .= " --prolog festival-prolog.scm"; | ||
251 | } | ||
248 | print("> $cmd\n") if $verbose; | 252 | print("> $cmd\n") if $verbose; |
249 | # Open command, and filehandles for STDIN, STDOUT, STDERR | 253 | # Open command, and filehandles for STDIN, STDOUT, STDERR |
250 | my $pid = open3(*CMD_IN, *CMD_OUT, *CMD_ERR, $cmd); | 254 | my $pid = open3(*CMD_IN, *CMD_OUT, *CMD_ERR, $cmd); |