Revert "let's be consistently case-insensitive with respect to the xml tags"

This reverts commit 2eb0c5e11da9b00f8675688841ba118b91aa7471.

1 files changed, 4 insertions, 4 deletions

diff --git a/scripts/ems/support/wrap-xml.perl b/scripts/ems/support/wrap-xml.perl
index 4ef6a1de6..e941aa95b 100755
--- a/scripts/ems/support/wrap-xml.perl
+++ b/scripts/ems/support/wrap-xml.perl
@@ -13,10 +13,10 @@ chomp(@OUT);
 while(<SRC>) {
     chomp;
     if (/^<srcset/) {
-	s/<srcset/<tstset trglang="$language"/i;
+	s/<srcset/<tstset trglang="$language"/;
     }
     elsif (/^<\/srcset/) {
-	s/<\/srcset/<\/tstset/i;
+	s/<\/srcset/<\/tstset/;
     }
     elsif (/^<doc/i) {
   s/ *sysid="[^\"]+"//;
@@ -26,10 +26,10 @@ while(<SRC>) {
 	my $line = shift(@OUT);
         $line = "" if $line =~ /NO BEST TRANSLATION/;
         if (/<\/seg>/) {
-	  s/(<seg[^>]+> *).*(<\/seg>)/$1$line$2/i;
+	  s/(<seg[^>]+> *).*(<\/seg>)/$1$line$2/;
         }
         else {
-	  s/(<seg[^>]+> *)[^<]*/$1$line/i;
+	  s/(<seg[^>]+> *)[^<]*/$1$line/;
         }
     }
     print $_."\n";