| … | … | ||
|---|---|---|---|
| 10 | open my $fh, "<:raw:perlio:utf8", $path | 10 | open my $fh, "<:raw:perlio:utf8", $path |
| 11 | or die "$path: $!\n"; | 11 | or die "$path: $!\n"; |
| 12 | 12 | ||
| 13 | sysread $fh, my $buf, 8192; | 13 | sysread $fh, my $buf, 8192; |
| 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 deliantra arch file\n"; |
| 16 | } | 16 | } |
| 17 | 17 | ||
| 18 | my $arch = read_arch ($path); | 18 | my $arch = read_arch ($path); |
| 19 | 19 | ||
| 20 | $arch = [ | 20 | $arch = [ |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |