o fix orphans handling: an already installed pkg must not become

    "unrequested" because a new version of it is required

fixes test_urpme(['gg', 'g'], 'g', 'g', 'gg-2');

1 files changed, 6 insertions, 3 deletions

diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index 2750317c..57cda207 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -73,11 +73,14 @@ sub _installed_req_and_unreq_and_update_unrequested_list {
 
 #- side-effects: none
 sub _selected_unrequested {
-    my ($urpm, $selected) = @_;
+    my ($urpm, $selected, $rejected) = @_;
 
+    require urpm::select;
     map {
 	if (my $from = $selected->{$_}{from}) {
-	    ($urpm->{depslist}[$_]->name => "(required by " . $from->fullname . ")");
+	    my $name = $urpm->{depslist}[$_]->name;
+	    urpm::select::was_pkg_name_installed($rejected, $name) ? () : 
+		($name => "(required by " . $from->fullname . ")");
 	} elsif ($selected->{$_}{suggested}) {
 	    ($urpm->{depslist}[$_]->name => "(suggested)");
 	} else {
@@ -110,7 +113,7 @@ sub _renamed_unrequested {
 sub _new_unrequested {
     my ($urpm, $state) = @_;
     (
-	_selected_unrequested($urpm, $state->{selected}),
+	_selected_unrequested($urpm, $state->{selected}, $state->{rejected}),
 	_renamed_unrequested($urpm, $state->{rejected}),
     );
 }