(perform_installation) workaround cannot selecting a selected then

unselected package witth deps (#28613)

1 files changed, 11 insertions, 1 deletions

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index fe3333df..a986d894 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -492,8 +492,18 @@ sub toggle_nodes {
         my @deps = sort { $a cmp $b } difference2($nodes_with_deps, $nodes);
         @deps > 0 or return 1;
       deps_msg_again:
+        # workaround s/formatlistpkg()/urpm::select::translate_why_removed()/ introducing regression
+        # in (un)selecting packages with deps (#28613):
+        my $cmd = bg_command->new(sub {
+                                      my $str = urpm::select::translate_why_removed($urpm, $urpm->{state}, @deps);
+                                      print "$str\n";
+                                  });
+        my $fd = $cmd->{fd};
+        my $reasons;
+        local $_;
+        $reasons .= $_ while <$fd>;
         my $results = interactive_msg(
-            $title, $msg . urpm::select::translate_why_removed($urpm, $urpm->{state}, @deps),
+            $title, $msg . $reasons,
             yesno => [ N("Cancel"), N("More info"), N("Ok") ],
             scroll => 1,
         );