From f92e622db1205c8abb4f8207d6b4c4a9ab674e62 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 12 Jul 2004 01:23:46 +0000
Subject: Don't use keys() in scalar context

---
 URPM/Resolve.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'URPM/Resolve.pm')

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
-- 
cgit v1.2.1