| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
| 2 | |
2 | |
| 3 | use Crossfire; |
3 | use Deliantra; |
| 4 | |
4 | |
| 5 | load_archetypes; |
5 | load_archetypes; |
| 6 | |
6 | |
| 7 | for my $path (@ARGV) { |
7 | for my $path (@ARGV) { |
| 8 | eval { |
8 | eval { |
| … | |
… | |
| 21 | map $arch->{$_}, |
21 | map $arch->{$_}, |
| 22 | sort keys %$arch |
22 | sort keys %$arch |
| 23 | ]; |
23 | ]; |
| 24 | |
24 | |
| 25 | open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!"; |
25 | open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!"; |
| 26 | print $fh Crossfire::archlist_to_string ($arch) |
26 | print $fh Deliantra::archlist_to_string ($arch) |
| 27 | or Carp::croak "$path~: $!"; |
27 | or Carp::croak "$path~: $!"; |
| 28 | close $fh or Carp::croak "$path~: $!"; |
28 | close $fh or Carp::croak "$path~: $!"; |
| 29 | rename "$path~", $path; |
29 | rename "$path~", $path; |
| 30 | |
30 | |
| 31 | 1 |
31 | 1 |
