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
This commit is contained in:
Jens Arnold 2008-07-20 13:55:04 +00:00
parent 195413995f
commit 903a048ddc

View file

@ -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,