From 36229f64a891de269f7fbb4b99ecefc56a22c4c4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 26 Oct 2006 10:54:02 +0000 Subject: (perform_installation) fix uninstalling the last package deselected for removal when installing others packages (#26108) --- rpmdrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpmdrake b/rpmdrake index 6b189675..8a686f7d 100755 --- a/rpmdrake +++ b/rpmdrake @@ -1858,7 +1858,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( # FIXME: $_ is trashed: my @pkgs = map { my $c = $_->fullname; $c } sort(grep { $_->flag_selected } @{$urpm->{depslist}});#{ $a->name cmp $b->name } @{$urpm->{depslist}}[keys %{$state->{selected}}]; @{$urpm->{ask_remove}} = sort $urpm->removed_packages($urpm->{state}); - my @to_remove = uniq(@{$urpm->{ask_remove}}, grep { $_ } map { if_($pkgs->{$_}{selected}, $pkgs->{$_}{urpm_name}) } keys %$pkgs); + my @to_remove = grep { $_ } map { if_($pkgs->{$_}{selected}, $pkgs->{$_}{urpm_name}) } keys %$pkgs; my $r = join "\n", $urpm->translate_why_removed($urpm->{state}, @to_remove); -- cgit v1.2.1