Only replace those abbreviations if they're capitalised.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@14610 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 3 insertions, 3 deletions

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"}) {