ignore commented-out lines in wml files

This commit is contained in:
Yann Dirson 2004-08-08 21:01:17 +00:00
parent 76eec64ed9
commit ee9da91616

View file

@ -7,6 +7,7 @@ sub readwml {
my (%trans, $key);
while (<TRANS>) {
next if m/^\s*\#/ and !defined $key;
if (m/(\S+)\s*=\s*(?:_\s*)?\"(.*)\"\s*$/) {
# single-line
die "nested key" if defined $key;