From 89089f2ac8633769596249e2a0f6981de1559225 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 11 Dec 2012 09:03:38 +0000
Subject: simplify like emi was

---
 ulri | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/ulri b/ulri
index e29be95..dcd48a9 100755
--- a/ulri
+++ b/ulri
@@ -542,14 +542,8 @@ foreach my $prefix (sort keys %pkg_tree) {
 	# count noarch todos only once even if searching multiple bots
 	my $noarch_countflag = 0;
 	
-	my @arch_list = keys %{$config->{bot}};
-	if (ref $config->{arch} eq 'ARRAY') {
-	    @arch_list = @{$config->{arch}};
-	} elsif (ref $config->{arch}{$target} eq 'ARRAY') {
-	    @arch_list = @{$config->{arch}{$target}};
-	} elsif (ref $config->{arch}{default} eq 'ARRAY') {
-	    @arch_list = @{$config->{arch}{default}};
-	}
+	my $arch_list = find { ref($_) eq 'ARRAY' } $config->{arch}, $config->{arch}{$target}, $config->{arch}{default};
+	my @arch_list = $arch_list ? @$arch_list : keys %{$config->{bot}};
 	# need to find a bot for each arch
 	foreach my $arch (@arch_list) {
 	    
-- 
cgit v1.2.1