aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-10-16 13:24:00 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-10-16 13:24:00 +0200
commit715d0f6d78cd5a63b6036b6f07ca54e89d491a55 (patch)
treeefa7becdc84a963366be0ea9156b171f9ee990cc
parent070f1be3d5c3aa813f61d061c2a0fd38c2477c08 (diff)
downloadperl-URPM-715d0f6d78cd5a63b6036b6f07ca54e89d491a55.tar
perl-URPM-715d0f6d78cd5a63b6036b6f07ca54e89d491a55.tar.gz
perl-URPM-715d0f6d78cd5a63b6036b6f07ca54e89d491a55.tar.bz2
perl-URPM-715d0f6d78cd5a63b6036b6f07ca54e89d491a55.tar.xz
perl-URPM-715d0f6d78cd5a63b6036b6f07ca54e89d491a55.zip
silent perl_checker
-rw-r--r--URPM/Resolve.pm7
1 files changed, 4 insertions, 3 deletions
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