diff options
author | amittai <amittai@foo.bar> | 2013-02-25 06:10:19 +0400 |
---|---|---|
committer | amittai <amittai@foo.bar> | 2013-02-25 06:10:19 +0400 |
commit | 8b6e98c633695f05190f66af644d9fc9295a52d9 (patch) | |
tree | a2319e1d5094278c845cb2c2abcd82c24e0ca79c /scripts/ems | |
parent | 2eb0c5e11da9b00f8675688841ba118b91aa7471 (diff) |
Revert "let's be consistently case-insensitive with respect to the xml tags"
This reverts commit 2eb0c5e11da9b00f8675688841ba118b91aa7471.
Diffstat (limited to 'scripts/ems')
-rwxr-xr-x | scripts/ems/support/wrap-xml.perl | 8 |
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"; |