[ViewVC] Diff of: cvs/deliantra/Deliantra/res2pm

Comparing deliantra/Deliantra/res2pm (file contents):
Revision 1.11 by elmex, Fri Aug 10 12:13:16 2007 UTC vs.
Revision 1.13 by elmex, Fri Mar 19 21:38:14 2010 UTC

 #!/opt/bin/perl
 # usage: res2pm
-open STDOUT, ">:utf8", "Crossfire/Data.pm"
+open STDOUT, ">:utf8", "Deliantra/Data.pm"
-   or die "Crossfire/Data.pm: $!";
+   or die "Deliantra/Data.pm: $!";
 print <<EOF;
 =head1 NAME
-Crossfire::Data - various data structures useful for understanding archs and objects
+Deliantra::Data - various data structures useful for understanding archs and objects
 =head1
 THIS FILE IS AUTOGENERATED, DO NOT EDIT!
 See F<res/README> for more info.
 =cut
-package Crossfire::Data;
+package Deliantra::Data;
 EOF
 use Data::Dumper;
 use XML::Grove::Builder;
       } elsif ($e->{Name} eq "ignore") {
          for my $i (grep $_->isa ('XML::Grove::Element'), @{$e->{Contents}}) {
             if ($i->{Name} eq "ignore_list") {
                push @{$type->{ignore}}, $ignore_list{$i->{Attributes}->{name}} ||= [];
             } elsif ($i->{Name} eq "attribute") {
+            warn "ACDD $i->{Attributes}->{arch}\n";
-               push @{$type->{ignore}}, $i->{Attributes}->{arch};
+               push @{$type->{ignore}}, [$i->{Attributes}->{arch}];
             }
          }
       } elsif ($e->{Name} eq "import_type") {
          #push @{$type->{import}}, $type{$e->{Attributes}->{name}} ||= {};
          push @{$type->{import}}, $e->{Attributes}->{name};

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