--- deliantra/Deliantra/Deliantra.pm	2006/02/05 02:29:13	1.8
+++ deliantra/Deliantra/Deliantra.pm	2006/02/05 21:18:07	1.9
@@ -136,7 +136,7 @@
    my $map;
 
    for (@{ $mapa->{arch} }) {
-      my ($x, $y) = ($_->{x}, $_->{y});
+      my ($x, $y) = (delete $_->{x}, delete $_->{y});
 
       if ($_->{_name} eq "map") {
          $meta{info} = $_;