… | |
… | |
333 | } |
333 | } |
334 | } |
334 | } |
335 | |
335 | |
336 | my $attr = { }; |
336 | my $attr = { }; |
337 | |
337 | |
338 | my @import = $root || \%Crossfire::Data::DEFAULT_ATTR; |
338 | my @import = ($root, \%Crossfire::Data::DEFAULT_ATTR); |
339 | my (%ignore); |
339 | my (%ignore); |
340 | my (@section_order, %section, @attr_order); |
340 | my (@section_order, %section, @attr_order); |
341 | |
341 | |
342 | while (my $type = shift @import) { |
342 | while (my $type = shift @import) { |
343 | push @import, @{$type->{import} || []}; |
343 | push @import, @{$type->{import} || []}; |