diff options
| author | Pascal Terjan <pterjan@gmail.com> | 2014-06-16 19:35:01 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@gmail.com> | 2014-06-16 19:35:01 +0000 |
| commit | 2b39a66f6bdd101e3a3f75aa58e9a1887a3db34f (patch) | |
| tree | a4c0254cf9cdf3a0998b8ad485691b95dafbc40e | |
| parent | 68158f19448bf1bda5dee659179f6865fe032ab2 (diff) | |
| download | urpmi-2b39a66f6bdd101e3a3f75aa58e9a1887a3db34f.tar urpmi-2b39a66f6bdd101e3a3f75aa58e9a1887a3db34f.tar.gz urpmi-2b39a66f6bdd101e3a3f75aa58e9a1887a3db34f.tar.bz2 urpmi-2b39a66f6bdd101e3a3f75aa58e9a1887a3db34f.tar.xz urpmi-2b39a66f6bdd101e3a3f75aa58e9a1887a3db34f.zip | |
fix some warnings with perl 5.20
| -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( |