diff options
-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, |