--- deliantra/Deliantra/res2pm	2006/03/12 23:21:11	1.8
+++ deliantra/Deliantra/res2pm	2006/03/27 17:38:18	1.9
@@ -117,9 +117,10 @@
 
    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");
-         }
+         # not used
+         #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} ||= [];
       } elsif ($e->name eq "ignore") {
@@ -201,8 +202,8 @@
    $spell{$_->attr ("id")} = $_->attr ("name");
 }
 
-dump_hash ["BITMASK", "LIST", "IGNORE_LIST", "DEFAULT_ATTR", "TYPE", "ATTR0", "ATTR", "TYPENAME", "SPELL"],
-          [\%bitmask, \%list, \%ignore_list, \%default_attr, \%type, \@attr0, \%attr, \%typename, \%spell];
+dump_hash ["BITMASK", "LIST", "IGNORE_LIST", "DEFAULT_ATTR", "TYPE", "ATTR", "TYPENAME", "SPELL"],
+          [\%bitmask, \%list, \%ignore_list, \%default_attr, \%type, \%attr, \%typename, \%spell];
 
 print <<EOF;