--- deliantra/Deliantra/Deliantra.pm	2006/02/24 11:50:36	1.34
+++ deliantra/Deliantra/Deliantra.pm	2006/03/12 16:23:56	1.35
@@ -325,6 +325,7 @@
          my $req = $_->{required}
             or die "internal error: ATTR0 without 'required'";
 
+         keys %$req;
          while (my ($k, $v) = each %$req) {
             next type
                unless $arch->{$k} == $v;