(perform_installation) fix uninstalling the last package deselected for removal

when installing others packages (#26108)

1 files changed, 1 insertions, 1 deletions

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);