… | |
… | |
20 | $arch = [ |
20 | $arch = [ |
21 | map $arch->{$_}, |
21 | map $arch->{$_}, |
22 | sort keys %$arch |
22 | sort keys %$arch |
23 | ]; |
23 | ]; |
24 | |
24 | |
|
|
25 | if (0) { |
|
|
26 | for my $o (@$arch) { |
|
|
27 | for ($o->{face}, @{ $o->{anim} }) { |
|
|
28 | s/\.1(\d\d)$/.x$1/; |
|
|
29 | } |
|
|
30 | } |
|
|
31 | } |
|
|
32 | |
25 | open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!"; |
33 | open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!"; |
26 | print $fh Deliantra::archlist_to_string ($arch) |
34 | print $fh Deliantra::archlist_to_string ($arch) |
27 | or Carp::croak "$path~: $!"; |
35 | or Carp::croak "$path~: $!"; |
28 | close $fh or Carp::croak "$path~: $!"; |
36 | close $fh or Carp::croak "$path~: $!"; |
29 | rename "$path~", $path; |
37 | rename "$path~", $path; |