| … | |
… | |
| 18 | my $arch = read_arch ($path); |
18 | my $arch = read_arch ($path); |
| 19 | $arch = [ |
19 | $arch = [ |
| 20 | map $arch->{$_}, |
20 | map $arch->{$_}, |
| 21 | sort keys %$arch |
21 | sort keys %$arch |
| 22 | ]; |
22 | ]; |
| 23 | use Data::Dumper; warn Dumper $arch;#d# |
|
|
| 24 | |
|
|
| 25 | die Crossfire::archlist_to_string ($arch);#d# |
|
|
| 26 | |
23 | |
| 27 | open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!"; |
24 | open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!"; |
| 28 | print $fh Crossfire::archlist_to_string ($arch) |
25 | print $fh Crossfire::archlist_to_string ($arch) |
| 29 | or Carp::croak "$path~: $!"; |
26 | or Carp::croak "$path~: $!"; |
| 30 | close $fh or Carp::croak "$path~: $!"; |
27 | close $fh or Carp::croak "$path~: $!"; |
