From 2b39a66f6bdd101e3a3f75aa58e9a1887a3db34f Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Mon, 16 Jun 2014 19:35:01 +0000 Subject: fix some warnings with perl 5.20 --- urpm/main_loop.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'urpm/main_loop.pm') 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( -- cgit v1.2.1