diff options
author | amittai <amittai@foo.bar> | 2013-02-25 06:07:11 +0400 |
---|---|---|
committer | amittai <amittai@foo.bar> | 2013-02-25 06:07:11 +0400 |
commit | 2eb0c5e11da9b00f8675688841ba118b91aa7471 (patch) | |
tree | 4119b80f27f4a5b7b985ad998545be0501c3dad6 /scripts/ems | |
parent | 5844fb21a758a492b0847ba0939a7856a9a5cb68 (diff) |
let's be consistently case-insensitive with respect to the xml tags
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 e941aa95b..4ef6a1de6 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"/; + s/<srcset/<tstset trglang="$language"/i; } elsif (/^<\/srcset/) { - s/<\/srcset/<\/tstset/; + s/<\/srcset/<\/tstset/i; } 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/; + s/(<seg[^>]+> *).*(<\/seg>)/$1$line$2/i; } else { - s/(<seg[^>]+> *)[^<]*/$1$line/; + s/(<seg[^>]+> *)[^<]*/$1$line/i; } } print $_."\n"; |