| … | … | ||
|---|---|---|---|
| 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 |