From 715d0f6d78cd5a63b6036b6f07ca54e89d491a55 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 16 Oct 2016 13:24:00 +0200
Subject: silent perl_checker

---
 URPM/Resolve.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'URPM')

diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 38781cc..a2cc514 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -1508,7 +1508,8 @@ sub _handle_diff_provides {
 
 	if (@packages) {
 	    my $best = join('|', sort { $a <=> $b } map { $_->id } @packages);
-	    $urpm->{debug_URPM}("promoting " . join(' ', _ids_to_fullnames($urpm, split('\|', $best))) . " because of conflict above") if $urpm->{debug_URPM};
+	    my @ids = split('\|', $best);
+	    $urpm->{debug_URPM}("promoting " . join(' ', _ids_to_fullnames($urpm, @ids)) . " because of conflict above") if $urpm->{debug_URPM};
 	    push @$properties, { required => $best, promote => $n, psel => $pkg };
 	} else {
 	    #- no package have been found, we may need to remove the package examined unless
@@ -1754,9 +1755,9 @@ identical to _ids_to_names() modulo short name vs full name
 
 #- side-effects: none
 sub _ids_to_fullnames {
-    my $urpm = shift;
+    my ($urpm, @ids) = @_;
 
-    map { scalar $urpm->{depslist}[$_]->fullname } @_;
+    map { scalar $urpm->{depslist}[$_]->fullname } @ids;
 }
 
 #- side-effects: flag_installed, flag_upgrade
-- 
cgit v1.2.1