… | … | ||
---|---|---|---|
14 | $buf =~ /^Object \S+\n.*^end$/ism | 14 | $buf =~ /^Object \S+\n.*^end$/ism |
15 | or die "$path: not a crossfire arch file\n"; | 15 | or die "$path: not a crossfire arch file\n"; |
16 | } | 16 | } |
17 | 17 | ||
18 | my $arch = read_arch ($path); | 18 | my $arch = read_arch ($path); |
19 | |||
19 | $arch = [ | 20 | $arch = [ |
20 | map $arch->{$_}, | 21 | map $arch->{$_}, |
21 | sort keys %$arch | 22 | sort keys %$arch |
22 | ]; | 23 | ]; |
23 | 24 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |