aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-07-12 01:23:46 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-07-12 01:23:46 +0000
commitf92e622db1205c8abb4f8207d6b4c4a9ab674e62 (patch)
tree7545e5253741238fca2e21af4ba54aa25c3a7763 /URPM
parent4d2406b22d7ce04473f316db7f3312be215efd51 (diff)
downloadperl-URPM-f92e622db1205c8abb4f8207d6b4c4a9ab674e62.tar
perl-URPM-f92e622db1205c8abb4f8207d6b4c4a9ab674e62.tar.gz
perl-URPM-f92e622db1205c8abb4f8207d6b4c4a9ab674e62.tar.bz2
perl-URPM-f92e622db1205c8abb4f8207d6b4c4a9ab674e62.tar.xz
perl-URPM-f92e622db1205c8abb4f8207d6b4c4a9ab674e62.zip
Don't use keys() in scalar context
Diffstat (limited to 'URPM')
-rw-r--r--URPM/Resolve.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 4b92598..1046be7 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -897,10 +897,10 @@ sub compute_flag {
#- %options :
#- callback : sub to be called for each package where the flag is set
#- skip : if true, set the 'skip' flag
-#- disable_obsolete : if true, set the 'risable_obsolete' flag
+#- disable_obsolete : if true, set the 'disable_obsolete' flag
sub compute_flags {
my ($urpm, $val, %options) = @_;
- if (ref $val eq 'HASH') { $val = \ keys %$val }; #- compatibility with urpmi <= 4.5-13mdk
+ if (ref $val eq 'HASH') { $val = [ keys %$val ] }; #- compatibility with urpmi <= 4.5-13mdk
my @regex;
#- unless a regular expression is given, search in provides