… | … | ||
---|---|---|---|
323 | type: | 323 | type: |
324 | for (@Crossfire::Data::ATTR0) { | 324 | for (@Crossfire::Data::ATTR0) { |
325 | my $req = $_->{required} | 325 | my $req = $_->{required} |
326 | or die "internal error: ATTR0 without 'required'"; | 326 | or die "internal error: ATTR0 without 'required'"; |
327 | 327 | ||
328 | keys %$req; | ||
328 | while (my ($k, $v) = each %$req) { | 329 | while (my ($k, $v) = each %$req) { |
329 | next type | 330 | next type |
330 | unless $arch->{$k} == $v; | 331 | unless $arch->{$k} == $v; |
331 | } | 332 | } |
332 | 333 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |