… | … | ||
---|---|---|---|
134 | my ($mapx, $mapy); | 134 | my ($mapx, $mapy); |
135 | 135 | ||
136 | my $map; | 136 | my $map; |
137 | 137 | ||
138 | for (@{ $mapa->{arch} }) { | 138 | for (@{ $mapa->{arch} }) { |
139 | my ($x, $y) = ($_->{x}, $_->{y}); | 139 | my ($x, $y) = (delete $_->{x}, delete $_->{y}); |
140 | 140 | ||
141 | if ($_->{_name} eq "map") { | 141 | if ($_->{_name} eq "map") { |
142 | $meta{info} = $_; | 142 | $meta{info} = $_; |
143 | 143 | ||
144 | $mapx = $_->{width} || $x; | 144 | $mapx = $_->{width} || $x; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |