Revision: | 1.2 |
Committed: | Tue Apr 8 20:26:32 2008 UTC (16 years, 1 month ago) by root |
Branch: | MAIN |
CVS Tags: | rel-1_2 |
Changes since 1.1: | +2 -2 lines |
Log Message: | *** empty log message *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.1 | #!/opt/bin/perl |
2 | |||
3 | root | 1.2 | use Deliantra::Map; |
4 | root | 1.1 | |
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 crossfire map file\n"; | ||
12 | |||
13 | root | 1.2 | my $map = new_from_file Deliantra::Map $path |
14 | root | 1.1 | or die "$path: file load error\n"; |
15 | |||
16 | $map->write_file ($path); | ||
17 | |||
18 | 1 | ||
19 | } or warn $@; | ||
20 | } | ||
21 |