diff options
Diffstat (limited to 'tools')
| -rwxr-xr-x | tools/genlang | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/genlang b/tools/genlang index 8be9b63..f0c35be 100755 --- a/tools/genlang +++ b/tools/genlang @@ -310,14 +310,14 @@ while(<LANG>) { my $ll = $_; - # print "M: $m\n"; + # print "M: $m\n"; push @phrase, $ll; # this is an XML-lookalike tag - if(/ *<([^>]*)>/) { - my $part = $1; - #print "P: $part\n"; + if (/^(<|[^\"<]+<)([^>]*)>/) { + my $part = $2; + # print "P: $part\n"; if($part =~ /^\//) { # this was a closing tag @@ -409,7 +409,7 @@ while(<LANG>) { # This is an opening (sub) tag push @m, $m; # store old value - $m = $1; + $m = $part; next; } |