From 5c6a71c86c92ff7ddb08130a8c1f452932045d85 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Sat, 23 Jan 2016 16:01:38 +0000
Subject: Store excluded architectures in pkg_tree

---
 emi | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'emi')

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;
-- 
cgit v1.2.1