#!/opt/bin/perl

use Deliantra::Map;

for my $path (@ARGV) {
   eval {
      open my $fh, "<:raw:perlio:utf8", $path
         or die "$path: $!\n";

      <$fh> =~ /^arch map$/
         or die "$path: not a deliantra map file\n";

      my $map = new_from_file Deliantra::Map $path
         or die "$path: file load error\n";

      $map->write_file ($path);

      1
   } or warn $@;
}