From dbb4b2aa0171758725dd8f35279f4d2c176a8f5d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 7 Jul 2008 20:47:36 +0000
Subject: use code from urpm::orphans

---
 rpm-find-leaves | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'rpm-find-leaves')

diff --git a/rpm-find-leaves b/rpm-find-leaves
index c1adc351..1a419cbf 100644
--- a/rpm-find-leaves
+++ b/rpm-find-leaves
@@ -4,7 +4,7 @@ use strict;
 
 use urpm;
 use urpm::msg;
-use urpm::select;
+use urpm::orphans;
 
 my %options = (
     restrict_group => 0,
@@ -42,9 +42,7 @@ while ($_ = shift) {
 }
 
 my $discard = $options{restrict_group} && sub { $_[0]->group !~ /\Q$options{group}/oi };
-my $leaves = urpm::select::installed_leaves($urpm, $discard);
+my $leaves = urpm::orphans::installed_leaves($urpm, $discard);
 
-my @l = $options{fullname} ? 
-           map { scalar $_->fullname } values %$leaves : 
-           keys %$leaves;
+my @l = map { $options{fullname} ? scalar $_->fullname : $_->name } @$leaves;
 print "$_\n" foreach sort @l;
-- 
cgit v1.2.1