aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xRpmdrake/pkg.pm2
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);