From b306c1a29317c0f0af8d07d2b9026959c339d033 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Nov 2006 09:19:22 +0000
Subject: - adapt ->translate_why_unselected to do what each callers do: sort
 its args and return a single string - create translate_why_unselected_one to
 make function smaller

---
 urpm.pm | 42 +++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index 0ad56704..7d0570ae 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -3264,25 +3264,29 @@ sub unselected_packages {
 sub uniq { my %l; $l{$_} = 1 foreach @_; grep { delete $l{$_} } @_ }
 
 sub translate_why_unselected {
-    my ($urpm, $state, @l) = @_;
-
-    map {
-	my $rb = $state->{rejected}{$_}{backtrack};
-	my @froms = keys %{$rb->{closure} || {}};
-	my @unsatisfied = @{$rb->{unsatisfied} || []};
-	my $s = join ", ", (
-	    (map { N("due to missing %s", $_) } @froms),
-	    (map { N("due to unsatisfied %s", $_) } uniq(map {
-		    #- XXX in theory we shouldn't need this, dependencies (and not ids) should
-		    #- already be present in @unsatisfied. But with biarch packages this is
-		    #- not always the case.
-		    /\D/ ? $_ : scalar($urpm->{depslist}[$_]->fullname);
-		} @unsatisfied)),
-	    $rb->{promote} && !$rb->{keep} ? N("trying to promote %s", join(", ", @{$rb->{promote}})) : @{[]},
-	    $rb->{keep} ? N("in order to keep %s", join(", ", @{$rb->{keep}})) : @{[]},
-	);
-	$_ . ($s ? " ($s)" : '');
-    } @l;
+    my ($urpm, $state, @fullnames) = @_;
+
+    join("\n", map { translate_why_unselected_one($urpm, $state, $_) } sort @fullnames);
+}
+
+sub translate_why_unselected_one {
+    my ($urpm, $state, $fullname) = @_;
+
+    my $rb = $state->{rejected}{$fullname}{backtrack};
+    my @froms = keys %{$rb->{closure} || {}};
+    my @unsatisfied = @{$rb->{unsatisfied} || []};
+    my $s = join ", ", (
+	(map { N("due to missing %s", $_) } @froms),
+	(map { N("due to unsatisfied %s", $_) } uniq(map {
+	    #- XXX in theory we shouldn't need this, dependencies (and not ids) should
+	    #- already be present in @unsatisfied. But with biarch packages this is
+	    #- not always the case.
+	    /\D/ ? $_ : scalar($urpm->{depslist}[$_]->fullname);
+	} @unsatisfied)),
+	$rb->{promote} && !$rb->{keep} ? N("trying to promote %s", join(", ", @{$rb->{promote}})) : (),
+	$rb->{keep} ? N("in order to keep %s", join(", ", @{$rb->{keep}})) : (),
+    );
+    $fullname . ($s ? " ($s)" : '');
 }
 
 sub removed_packages {
-- 
cgit v1.2.1