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

understand quoted ids in wml

Browse source
This commit is contained in:
Yann Dirson 2004-08-09 20:55:02 +00:00
parent 857fdf0158
commit 420406da77
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
utils/wml2po.pl
View file

@ -72,7 +72,9 @@ foreach my $wmlfile (@wmlfiles) {
my ($str, $key, $value,$strtype);
while (<WML>) {
# print STDERR $_;
if (m/id\s*=\s*(.*)/) {
if (m/id\s*=\s*"(.*)"/) {
$id = $1;
} elsif (m/id\s*=\s*(.*)/) {
$id = $1;
# print STDERR "--> $id\n";
# } elsif (m,\[/.*\],) {