diff options
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | urpm/main_loop.pm | 4 |
2 files changed, 3 insertions, 2 deletions
@@ -1,5 +1,6 @@ - add some missing methods, allows to do urpmf --qf '%sourcerpm:%requires' - update bash completion +- fix some warnings with perl 5.20 Version 7.31 - 24 January 2014 diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm index a010bc76..fa574ea8 100644 --- a/urpm/main_loop.pm +++ b/urpm/main_loop.pm @@ -229,7 +229,7 @@ sub _init_common_options { sub _log_installing { my ($urpm, $transaction_sources_install, $transaction_sources) = @_; - if (my @packnames = (values $transaction_sources_install, values $transaction_sources)) { + if (my @packnames = (values %$transaction_sources_install, values %$transaction_sources)) { (my $common_prefix) = $packnames[0] =~ m!^(.*)/!; if (length($common_prefix) && @packnames == grep { m!^\Q$common_prefix/! } @packnames) { #- there's a common prefix, simplify message @@ -242,7 +242,7 @@ sub _log_installing { sub _run_parallel_transaction { my ($urpm, $state, $transaction_sources, $transaction_sources_install) = @_; - $urpm->{print}(N("distributing %s", join(' ', values $transaction_sources_install, values $transaction_sources))); + $urpm->{print}(N("distributing %s", join(' ', values %$transaction_sources_install, values %$transaction_sources))); #- no remove are handle here, automatically done by each distant node. $urpm->{log}("starting distributed install"); $urpm->{parallel_handler}->parallel_install( |