[ViewVC] Diff of: cvs/deliantra/Deliantra/bin/cfarch-normalize

Comparing deliantra/Deliantra/bin/cfarch-normalize (file contents):
Revision 1.2 by root, Tue Feb 6 21:52:44 2007 UTC vs.
Revision 1.3 by root, Tue Feb 6 22:08:14 2007 UTC

 load_archetypes;
 for my $path (@ARGV) {
    eval {
+      {
-      open my $fh, "<:raw:perlio:utf8", $path
+         open my $fh, "<:raw:perlio:utf8", $path
-         or die "$path: $!\n";
+            or die "$path: $!\n";
-      <$fh> =~ /^Object/i
+         sysread $fh, my $buf, 8192;
+         warn $buf;
+         $buf =~ /^Object \S+\n.*^end$/ism
-         or die "$path: not a crossfire arch file\n";
+            or die "$path: not a crossfire arch file\n";
+      }
       my $arch = read_arch ($path);
+      $arch = [
+         map $arch->{$_},
+            sort keys %$arch
+      ];
+      die Crossfire::archlist_to_string ($arch);#d#
-      open my $fh2, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!";
+      open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!";
-      print $fh2 Crossfire::archlist_to_string ([values %$arch])
+      print $fh Crossfire::archlist_to_string ($arch)
-                                           or Carp::croak "$path~: $!";
+                                          or Carp::croak "$path~: $!";
-      close $fh2                           or Carp::croak "$path~: $!";
+      close $fh                           or Carp::croak "$path~: $!";
       rename "$path~", $path;
       1
    } or warn $@;
 }

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