Revision: | 1.3 |
Committed: | Tue Jul 29 09:28:43 2008 UTC (15 years, 9 months ago) by root |
Branch: | MAIN |
CVS Tags: | rel-2_01, rel-1_30, rel-1_222, rel-1_221, rel-1_29, rel-1_24, rel-1_25, rel-1_22, rel-1_23, HEAD |
Changes since 1.2: | +1 -1 lines |
Log Message: | *** empty log message *** |
# | Content |
---|---|
1 | #!/opt/bin/perl |
2 | |
3 | use Deliantra::Map; |
4 | |
5 | for my $path (@ARGV) { |
6 | eval { |
7 | open my $fh, "<:raw:perlio:utf8", $path |
8 | or die "$path: $!\n"; |
9 | |
10 | <$fh> =~ /^arch map$/ |
11 | or die "$path: not a deliantra map file\n"; |
12 | |
13 | my $map = new_from_file Deliantra::Map $path |
14 | or die "$path: file load error\n"; |
15 | |
16 | $map->write_file ($path); |
17 | |
18 | 1 |
19 | } or warn $@; |
20 | } |
21 |