ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra/bin/cfarch-normalize
(Generate patch)

Comparing deliantra/Deliantra/bin/cfarch-normalize (file contents):
Revision 1.9 by root, Thu Oct 29 02:52:42 2009 UTC vs.
Revision 1.10 by root, Thu Oct 29 02:55:59 2009 UTC

… …
9 { 9 {
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+\s*\n.*^end\s*$/ism
15 or die "$path: not a deliantra 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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines