summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS1
-rw-r--r--urpm/main_loop.pm4
2 files changed, 3 insertions, 2 deletions
diff --git a/NEWS b/NEWS
index 060ec914..dc3fedb2 100644
--- a/NEWS
+++ b/NEWS
@@ -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(