| … | |
… | |
| 808 | |
808 | |
| 809 | my (%ignore); |
809 | my (%ignore); |
| 810 | my (@section_order, %section, @attr_order); |
810 | my (@section_order, %section, @attr_order); |
| 811 | |
811 | |
| 812 | while (my $type = shift @import) { |
812 | while (my $type = shift @import) { |
|
|
813 | push @import, |
|
|
814 | grep $_, |
|
|
815 | map $Crossfire::Data::TYPE{$_}, |
| 813 | push @import, @{$type->{import} || []}; |
816 | @{$type->{import} || []}; |
| 814 | |
817 | |
| 815 | $attr->{$_} ||= $type->{$_} |
818 | $attr->{$_} ||= $type->{$_} |
| 816 | for qw(name desc use); |
819 | for qw(name desc use); |
| 817 | |
820 | |
| 818 | for (@{$type->{ignore} || []}) { |
821 | for (@{$type->{ignore} || []}) { |
