diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-07-12 01:23:46 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-07-12 01:23:46 +0000 |
| commit | f92e622db1205c8abb4f8207d6b4c4a9ab674e62 (patch) | |
| tree | 7545e5253741238fca2e21af4ba54aa25c3a7763 | |
| parent | 4d2406b22d7ce04473f316db7f3312be215efd51 (diff) | |
| download | perl-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
| -rw-r--r-- | URPM/Resolve.pm | 4 |
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 |