Store excluded architectures in pkg_tree

1 files changed, 2 insertions, 3 deletions

diff --git a/emi b/emi
index a3ca1e9..940481d 100755
--- a/emi
+++ b/emi
@@ -119,7 +119,6 @@ my $done = "$config->{queue}/done";
 my $reject = "$config->{queue}/rejected";
 
 my %pkg_tree;
-my %excluded;
 my %uploaded;
 
 
@@ -142,7 +141,7 @@ sub done_func {
 	    } elsif ($result eq 'excluded') {
 		$arch = $config->{arch_translation}{$arch} if $config->{arch_translation}{$arch};
 		plog('DEBUG', "found .excluded ($prefix) for $arch");
-		$excluded{$prefix}{$section}{$arch} = 1;
+		$pkg_tree{$prefix}{section}{$section}{excluded_arch}{$arch} = 1;
 	    }
 	} elsif ($suffix =~ /^\.(\w+)$/) {
 	    my ($action) = $1;
@@ -214,7 +213,7 @@ foreach my $prefix (sort keys %pkg_tree) {
 	}
 
 	foreach my $m (@wanted_archs, 'src') {
-	    $excluded{$prefix}{$section}{$m} and next;
+	    $pkg_tree{$prefix}{section}{$section}{excluded_arch}{$m} and next;
 	    my $x = "yes";
 	    if (!$pkg_tree{$prefix}{section}{$section}{arch}{$m}) {
 		$missing{$m} = 1;