diff options
| -rwxr-xr-x | Rpmdrake/pkg.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 855fe5b0..ef1c1b4b 100755 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -497,7 +497,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( my @to_remove = grep { $_ } map { if_($pkgs->{$_}{selected}, $pkgs->{$_}{urpm_name}) } keys %$pkgs; # select packages to uninstall for !update mode: - perform_removal($urpm, $pkgs) if !$probe_only_for_updates; + perform_removal($urpm, { map { my $p = $pkgs->{$_}; $p->{selected} && $p->{pkg}->flag_installed ? ($_ => $p) : () } keys %$pkgs }) if !$probe_only_for_updates; my $r = join "\n", urpm::select::translate_why_removed($urpm, $urpm->{state}, @to_remove); |