Extract get_target_arch helper

1 files changed, 3 insertions, 4 deletions

diff --git a/ulri b/ulri
index b4230c9..277f231 100755
--- a/ulri
+++ b/ulri
@@ -33,7 +33,7 @@
 
 use strict;
 use MDK::Common qw(any cat_ if_ find);
-use Iurt::Config qw(config_usage get_date config_init get_author_email check_arch check_noarch);
+use Iurt::Config qw(config_usage get_date config_init get_author_email check_arch check_noarch get_target_arch);
 use Iurt::Process qw(check_pid);
 use Iurt::File qw(check_upload_tree cleanup_failed_build);
 use Iurt::Mail qw(sendmail);
@@ -576,10 +576,9 @@ foreach my $prefix (sort keys %pkg_tree) {
 	# count noarch todos only once even if searching multiple bots
 	my $noarch_countflag = 0;
 	
-	my $arch_list = find { ref($_) eq 'ARRAY' } $config->{arch}, (ref($config->{arch}) eq 'HASH' ? ($config->{arch}{$target}, $config->{arch}{default}) : ());
-	my @arch_list = $arch_list ? @$arch_list : keys %{$config->{bot}};
+	my $arch_list = get_target_arch($config, $target);
 	# need to find a bot for each arch
-	foreach my $arch (@arch_list) {
+	foreach my $arch (@$arch_list) {
 	    
 	    # Skip this arch if package is building as noarch
 	    #