… | … | ||
---|---|---|---|
172 | 172 | ||
173 | Crossfire::normalize_arch \%a; | 173 | Crossfire::normalize_arch \%a; |
174 | 174 | ||
175 | $str .= "arch " . (delete $a{_name}) . "\n"; | 175 | $str .= "arch " . (delete $a{_name}) . "\n"; |
176 | 176 | ||
177 | my $inv = delete $a{arch}; | 177 | my $inv = delete $a{inventory}; |
178 | 178 | ||
179 | # put inventory last | 179 | # put inventory last |
180 | for my $k (sort keys %a) { | 180 | for my $k (sort keys %a) { |
181 | next if $k =~ /^_/; # ignore our _-keys | 181 | next if $k =~ /^_/; # ignore our _-keys |
182 | 182 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |