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 | |
| parent | 195413995fbadb68c4725c13f491c087fa7d5627 (diff) | |
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')
| -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 { $SIG{INT} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); }; $SIG{KILL} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); }; print(CMD_IN "QUERY\tVENDOR\r\n"); - my $vendor = readline(CMD_OUT); + my $vendor = readline(*CMD_OUT); $vendor =~ s/\r\n//; %ret = (%ret, "stdin" => *CMD_IN, |