193 |
|
|
194 |
foreach my $section (keys %{$pkg_tree{$prefix}{section}}) { |
foreach my $section (keys %{$pkg_tree{$prefix}{section}}) { |
195 |
my $mandatory_arch = find { ref($_) eq 'ARRAY' } $config->{mandatory_arch}, |
my $mandatory_arch = find { ref($_) eq 'ARRAY' } $config->{mandatory_arch}, |
196 |
$config->{mandatory_arch}{$target}, $config->{mandatory_arch}{default}, []; |
(ref($config->{mandatory_arch}) eq 'HASH' ? ($config->{mandatory_arch}{$target}, $config->{mandatory_arch}{default}) : ()), []; |
197 |
my @wanted_archs = defined($pkg_tree{$prefix}{section}{$section}{arch}{noarch}) ? 'noarch' : @$mandatory_arch; |
my @wanted_archs = defined($pkg_tree{$prefix}{section}{$section}{arch}{noarch}) ? 'noarch' : @$mandatory_arch; |
198 |
my $path = $pkg_tree{$prefix}{section}{$section}{path}; |
my $path = $pkg_tree{$prefix}{section}{$section}{path}; |
199 |
my %missing; |
my %missing; |