0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

support end-of-line comments

Browse source
This commit is contained in:
Yann Dirson 2004-08-08 21:27:14 +00:00
parent f9db07ca5a
commit e6da13d052
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
utils/wmltrans.pm
View file

@ -8,7 +8,7 @@ sub readwml {
while (<TRANS>) {
next if m/^\s*\#/ and !defined $key;
if (m/(\S+)\s*=\s*(?:_\s*)?\"(.*)\"\s*$/) {
if (m/(\S+)\s*=\s*(?:_\s*)?\"(.*)\"\s*(?:\#.*)?$/) {
# single-line
die "nested key" if defined $key;
@ -21,7 +21,7 @@ sub readwml {
$key = $1;
$trans{$key} = $2 . "\n";
} elsif (m/(.*)\"\s*$/) {
} elsif (m/(.*)\"\s*(?:\#.*)?$/) {
# end of multi-line
die "end of string without a key" unless defined $key;