From 72021f4922a2a57af0aeeaa183e1744f1a9f678d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Sep 2008 07:48:33 +0000
Subject: export new_unrequested() (for future use in drakx (?))

---
 urpm/orphans.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index 57cda207..53abb41c 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -110,7 +110,7 @@ sub _renamed_unrequested {
     }
     %l;
 }
-sub _new_unrequested {
+sub new_unrequested {
     my ($urpm, $state) = @_;
     (
 	_selected_unrequested($urpm, $state->{selected}, $state->{rejected}),
@@ -121,7 +121,7 @@ sub _new_unrequested {
 sub add_unrequested {
     my ($urpm, $state) = @_;
 
-    my %l = _new_unrequested($urpm, $state);
+    my %l = new_unrequested($urpm, $state);
     append_to_file(unrequested_list__file($urpm), join('', map { "$_\t\t$l{$_}\n" } keys %l));
 }
 
@@ -275,7 +275,7 @@ sub compute_future_unrequested_orphans {
 
     my ($current_pkgs, $unrequested) = _installed_and_unrequested_lists($urpm);
 
-    put_in_hash($unrequested, { _new_unrequested($urpm, $state) });
+    put_in_hash($unrequested, { new_unrequested($urpm, $state) });
 
     my %toremove = map { $_ => 1 } URPM::removed_or_obsoleted_packages($state);
     my @pkgs = grep { !$toremove{$_->fullname} } @$current_pkgs;
-- 
cgit v1.2.1