simplify checking whether the whole group is noarch or not

1 files changed, 1 insertions, 6 deletions

diff --git a/ulri b/ulri
index c31f3c0..83e1f28 100755
--- a/ulri
+++ b/ulri
@@ -578,12 +578,7 @@ foreach my $prefix (sort keys %pkg_tree) {
 	    # as noarch
 	    #
 	    my $noarch = 1;
-	    foreach my $srpm (@$srpms) {
-		if (!check_noarch("$todo_dir/${prefix}_$srpm")) {
-		    $noarch = 0;
-		    last;
-		}
-	    }
+	    $noarch = 0 if any { !check_noarch("$todo_dir/${prefix}_$_") } @$srpms;
 	    
 	    #plog("@$srpms is noarch") if $noarch;