From 5f5085b251fb64d86adb48e0bba2b69838c41a7a Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 8 Jun 2005 08:04:37 +0000 Subject: Don't use hashes in scalar context --- urpm/parallel_ssh.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'urpm') diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index eb51158e..30d7df18 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -92,7 +92,7 @@ sub parallel_find_remove { #- if at least one node has the package, it should be seen as unknown... delete @notfound{map { /^(.*)-[^-]*-[^-]*$/ } keys %{$state->{rejected}}}; - if (%notfound) { + if (keys %notfound) { $options{callback_notfound} and $options{callback_notfound}->($urpm, keys %notfound) or delete $state->{rejected}; } @@ -136,7 +136,7 @@ sub parallel_resolve_dependencies { } $_ = $best_requested || $best; } - #- simplified choices resolution. + #- simplified choice resolution. my $choice = $options{callback_choices}->($urpm, undef, $state, [ values %$packages ]); if ($choice) { $urpm->{source}{$choice->id} and next; #- local packages have already been added. @@ -228,7 +228,7 @@ sub parallel_install { exists $bad_nodes{$_} or next; $urpm->{error}(urpm::N("Installation failed on node %s", $_) . ":\n" . $bad_nodes{$_}); } - %bad_nodes and return; + keys %bad_nodes and return; if ($options{test}) { $urpm->{error}(urpm::N("Installation is possible")); -- cgit v1.2.1