| … | … | ||
|---|---|---|---|
| 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 |