diff options
author | Jens Arnold <amiconn@rockbox.org> | 2008-07-20 13:55:04 +0000 |
---|---|---|
committer | Jens Arnold <amiconn@rockbox.org> | 2008-07-20 13:55:04 +0000 |
commit | 903a048ddcf5b95dc85d1c440daf0f397b6d60b0 (patch) | |
tree | 4c765cb0e0a25845802be659ccf7f1c06f10a257 /tools/voice.pl | |
parent | 195413995fbadb68c4725c13f491c087fa7d5627 (diff) | |
download | rockbox-903a048ddcf5b95dc85d1c440daf0f397b6d60b0.tar.gz rockbox-903a048ddcf5b95dc85d1c440daf0f397b6d60b0.zip |
Fix 'Bareword ''CMD_OUT'' not allowed while ''strict subs'' in use' when building SAPI voices using newer perl versions.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@18102 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'tools/voice.pl')
-rwxr-xr-x | tools/voice.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/voice.pl b/tools/voice.pl index eb6bfc1bf6..8e0a7f0152 100755 --- a/tools/voice.pl +++ b/tools/voice.pl | |||
@@ -93,7 +93,7 @@ sub init_tts { | |||
93 | $SIG{INT} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); }; | 93 | $SIG{INT} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); }; |
94 | $SIG{KILL} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); }; | 94 | $SIG{KILL} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); }; |
95 | print(CMD_IN "QUERY\tVENDOR\r\n"); | 95 | print(CMD_IN "QUERY\tVENDOR\r\n"); |
96 | my $vendor = readline(CMD_OUT); | 96 | my $vendor = readline(*CMD_OUT); |
97 | $vendor =~ s/\r\n//; | 97 | $vendor =~ s/\r\n//; |
98 | %ret = (%ret, | 98 | %ret = (%ret, |
99 | "stdin" => *CMD_IN, | 99 | "stdin" => *CMD_IN, |