Only replace those abbreviations if they're capitalised.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@14610 a1c6a512-1295-4272-9138-f99709370657
diff --git a/tools/voice.pl b/tools/voice.pl
index 8b5b27b..dae6456 100755
--- a/tools/voice.pl
+++ b/tools/voice.pl
@@ -94,7 +94,7 @@
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 @@
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"}) {