… | |
… | |
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} || []}) { |