From 2829aefe02e1bc01e7f7b99af0eb5137970003ce Mon Sep 17 00:00:00 2001 From: Jens Arnold Date: Tue, 4 Sep 2007 22:13:52 +0000 Subject: Only replace those abbreviations if they're capitalised. git-svn-id: svn://svn.rockbox.org/rockbox/trunk@14610 a1c6a512-1295-4272-9138-f99709370657 --- tools/voice.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tools/voice.pl') diff --git a/tools/voice.pl b/tools/voice.pl index 8b5b27b82c..dae6456ed5 100755 --- a/tools/voice.pl +++ b/tools/voice.pl @@ -94,7 +94,7 @@ sub init_tts { print(CMD_IN "QUERY\tVENDOR\r\n"); my $vendor = readline(CMD_OUT); $vendor =~ s/\r\n//; - %ret = (%ret, + %ret = (%ret, "stdin" => *CMD_IN, "stdout" => *CMD_OUT, "toolspath" => $path, @@ -126,8 +126,8 @@ sub correct_string { my $orig = $string; switch($language) { # General for all engines and languages - $string =~ s/USB/U S B/ig; - $string =~ s/ID3/I D 3/ig; + $string =~ s/USB/U S B/g; + $string =~ s/ID3/I D 3/g; case "english" { switch($$tts_object{"name"}) { -- cgit v1.2.3