From 7fbbff059f2f37f188165ab61266198e768a6154 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 3 Jul 2008 12:42:09 +0000
Subject: factorize

---
 rpm-find-leaves | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/rpm-find-leaves b/rpm-find-leaves
index 12703fca..c1adc351 100644
--- a/rpm-find-leaves
+++ b/rpm-find-leaves
@@ -44,8 +44,7 @@ while ($_ = shift) {
 my $discard = $options{restrict_group} && sub { $_[0]->group !~ /\Q$options{group}/oi };
 my $leaves = urpm::select::installed_leaves($urpm, $discard);
 
-if ($options{fullname}) {
-    print "$_\n" foreach sort map { scalar $_->fullname } values %$leaves;
-} else {
-    print "$_\n" foreach sort keys %$leaves;
-}
+my @l = $options{fullname} ? 
+           map { scalar $_->fullname } values %$leaves : 
+           keys %$leaves;
+print "$_\n" foreach sort @l;
-- 
cgit v1.2.1