From 2951ec36abe44242fc1c74dd68e1207f75f9fdae Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 2 Oct 2009 10:51:22 +0000
Subject: (perform_installation) fix flags for orphan computing, thus fixing
 registering orphan packages (#51229)

---
 NEWS            | 3 +++
 Rpmdrake/pkg.pm | 7 +++++++
 2 files changed, 10 insertions(+)

diff --git a/NEWS b/NEWS
index d5091830..b1341ea0 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- rpmdrake
+  o fix registering orphan package (#51229)
+
 Version 5.19 - 1 October 2009, Thierry Vignaud
 
 - gurpmi.addmedia
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index b97af7d7..0a64611c 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -704,6 +704,8 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
         }
     }
 
+    urpm::orphans::mark_as_requested($urpm, $state);
+
     my ($progress, $total, @rpms_upgrade);
     my $transaction;
     my ($progress_nb, $transaction_progress_nb, $remaining, $done);
@@ -726,6 +728,11 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
     # FIXME: sometimes state is lost:
     my @ask_unselect = urpm::select::unselected_packages($urpm, $state);
 
+    # fix flags for orphan computing:
+    foreach (keys %{$state->{selected}}) {
+        my $pkg = $urpm->{depslist}[$_];
+        $pkg->set_flag_requested(0);
+    }
     my $exit_code = 
       urpm::main_loop::run($urpm, $state, 1, \@ask_unselect, $requested,
                          {
-- 
cgit v1.2.1