… | … | ||
---|---|---|---|
22 | sort keys %$arch | 22 | sort keys %$arch |
23 | ]; | 23 | ]; |
24 | 24 | ||
25 | if (0) { | 25 | if (0) { |
26 | for my $o (@$arch) { | 26 | for my $o (@$arch) { |
27 | for ($o->{face}, @{ $o->{anim} }) { | 27 | for ($o->{face}, @{ $o->{anim} || [] }) { |
28 | s/\.1(\d\d)$/.x$1/; | 28 | s/\.1(\d\d)$/.x$1/; |
29 | } | 29 | } |
30 | } | 30 | } |
31 | } | 31 | } |
32 | 32 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |