use "any" instead of "grep" in scalar context

2 files changed, 4 insertions, 4 deletions

diff --git a/urpm/parallel.pm b/urpm/parallel.pm
index 6f55b841..f35843d3 100644
--- a/urpm/parallel.pm
+++ b/urpm/parallel.pm
@@ -178,7 +178,7 @@ sub _parse_urpmq_output {
 	#- distant urpmq returned a choices, check if it has already been chosen
 	#- or continue iteration to make sure no more choices are left.
 	$$cont ||= 1; #- invalid transitory state (still choices is strange here if next sentence is not executed).
-	unless (grep { exists $chosen->{$_} } split /\|/, $s) {
+	unless (any { exists $chosen->{$_} } split /\|/, $s) {
 	    my $choice = $options{callback_choices}->($urpm, undef, $state, [ map { $urpm->search($_) } split /\|/, $s ]);
 	    if ($choice) {
 		$chosen->{scalar $choice->fullname} = $choice;
diff --git a/urpm/select.pm b/urpm/select.pm
index 7bd4cc2b..416c2fd7 100644
--- a/urpm/select.pm
+++ b/urpm/select.pm
@@ -403,9 +403,9 @@ sub _resolve_priority_upgrades {
     my %priority_requested = map { $_->id => undef } @$priority_pkgs;
 
     $urpm->resolve_requested($db, \%priority_state, \%priority_requested, %options);
-    if (grep { ! exists $priority_state{selected}{$_} } keys %priority_requested) {
+    if (any { ! exists $priority_state{selected}{$_} } keys %priority_requested) {
 	#- some packages which were selected previously have not been selected, strange!
-    } elsif (grep { ! exists $priority_state{selected}{$_} } keys %$selected) {
+    } elsif (any { ! exists $priority_state{selected}{$_} } keys %$selected) {
 	#- there are other packages to install after this priority transaction.
 	%$state = %priority_state;
 	$need_restart = 1;
@@ -572,7 +572,7 @@ sub _prohibit_packages_that_would_be_removed {
     });
 
     grep {
-	! grep { $base{$_} } rejected_unsatisfied($state, $_);
+	! any { $base{$_} } rejected_unsatisfied($state, $_);
     } intersection(\@to_remove, \@base_fn);
 }