- don't resolve suggested virtual packages if already installed (#34376)

1 files changed, 8 insertions, 0 deletions

diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 85d4bff..23656a0 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -705,6 +705,14 @@ sub resolve_requested {
 		delete $suggests{$_} foreach $p->suggests;
 	    });
 
+	    # workaround: if you do "urpmi virtual_pkg" and one virtual_pkg is already installed,
+	    # it will ask anyway for the other choices
+	    foreach my $suggest (keys %suggests) {
+		$db->traverse_tag('whatprovides', [ $suggest ], sub {
+		    delete $suggests{$suggest};
+		});
+	    }
+
 	    %suggests or next;
 
 	    $urpm->{debug_URPM}("requested " . join(', ', keys %suggests) . " suggested by " . $pkg->fullname) if $urpm->{debug_URPM};