- urpmi

  o fix --replacepkgs when a package appears more than once in urpmi db (#40893)
    (need perl-URPM 3.14)

1 files changed, 1 insertions, 5 deletions

diff --git a/urpmi b/urpmi
index a8f478d5..bf0a94ba 100755
--- a/urpmi
+++ b/urpmi
@@ -479,11 +479,7 @@ sub ask_choice {
 #- packages being upgraded (problably urpmi and perl-URPM, but maybe rpm too, and glibc also ?).
 my $restart_itself;
 if ($options{replacepkgs}) {
-    foreach (keys %requested) {
-	my $pkg = $urpm->{depslist}[$_] or next;
-	$pkg->set_flag_requested;
-	$state->{selected}{$_} = undef;
-    }
+    urpm::select::select_replacepkgs($urpm, $state, \%requested);
 } else {
     $restart_itself = urpm::select::resolve_dependencies($urpm,
     $state,