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

Comparing deliantra/Deliantra/res2pm (file contents):
Revision 1.4 by root, Wed Feb 22 22:05:53 2006 UTC vs.
Revision 1.5 by root, Wed Feb 22 22:36:45 2006 UTC

  res/typenumbers.xml
 See F<res/README> for more info.
 =cut
+package Crossfire::Data;
 EOF
 use Data::Dumper;
 use XML::Parser::Grove;
 }
 sub parse_type {
    my ($e, $type) = @_;
+   my %main;
    for my $e (grep ref, @{$e->contents}) {
       if ($e->name eq "required") {
          for my $i (grep ref, @{$e->contents}) {
             $type->{required}{$i->attr ("arch")} = $i->attr ("value");
          }
       } elsif ($e->name eq "attribute") {
-         parse_attr $e, $type->{attr}{Main} ||= {};
+         parse_attr $e, $type->{attr} ||= {};
       } elsif ($e->name eq "ignore") {
          for my $i (grep ref, @{$e->contents}) {
             if ($i->name eq "ignore_list") {
                push @{$type->{ignore}}, $ignore_list{$i->attr ("name")} ||= [];
             } elsif ($i->name eq "attribute") {
       } elsif ($e->name eq "use") {
          $type->{use} = string $e;
       } elsif ($e->name eq "description") {
          $type->{desc} = string $e;
       } elsif ($e->name eq "section") {
+         my %attr;
          for my $i (grep ref, @{$e->contents}) {
-            parse_attr $i, $type->{attr}{$e->attr ("name")} ||= {};
+            parse_attr $i, \%attr;
          }
+         push @{ $type->{section} }, [$e->attr ("name") => \%attr];
       } else {
          warn "unknown types subelement ", $e->name;
       }
    }

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