diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-10-16 13:24:00 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-10-16 13:24:00 +0200 |
| commit | 715d0f6d78cd5a63b6036b6f07ca54e89d491a55 (patch) | |
| tree | efa7becdc84a963366be0ea9156b171f9ee990cc | |
| parent | 070f1be3d5c3aa813f61d061c2a0fd38c2477c08 (diff) | |
| download | perl-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.pm | 7 |
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 |