diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-08 08:10:31 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-08 08:10:31 +0000 |
commit | 2ea266a6eb9b6910e7227d0a571d9118f7f8a87b (patch) | |
tree | d0429070b53b0623834f5ef3ca5fbd1b9bf7679e | |
parent | 1a8fd0152093dba6cea8ba7e785f80d69db26d00 (diff) | |
download | perl-URPM-2ea266a6eb9b6910e7227d0a571d9118f7f8a87b.tar perl-URPM-2ea266a6eb9b6910e7227d0a571d9118f7f8a87b.tar.gz perl-URPM-2ea266a6eb9b6910e7227d0a571d9118f7f8a87b.tar.bz2 perl-URPM-2ea266a6eb9b6910e7227d0a571d9118f7f8a87b.tar.xz perl-URPM-2ea266a6eb9b6910e7227d0a571d9118f7f8a87b.zip |
rename a local variable for clarity
-rw-r--r-- | URPM/Resolve.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index ff65123..577b383 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -241,7 +241,7 @@ sub whatrequires_id { #- return unresolved requires of a package (a new one or an existing one). sub unsatisfied_requires { my ($urpm, $db, $state, $pkg, %options) = @_; - my %properties; + my %unsatisfied; #- all requires should be satisfied according to selected packages or installed packages, #- or the package itself. @@ -250,7 +250,7 @@ sub unsatisfied_requires { if (defined $options{name} && $n ne $options{name}) { #- allow filtering on a given name (to speed up some search). - } elsif (exists $properties{$dep}) { + } elsif (exists $unsatisfied{$dep}) { #- avoid recomputing the same all the time. } else { #- check for installed packages in the installed cache. @@ -291,11 +291,11 @@ sub unsatisfied_requires { }); } #- if nothing can be done, the require should be resolved. - $satisfied or $properties{$dep} = undef; + $satisfied or $unsatisfied{$dep} = undef; } } - keys %properties; + keys %unsatisfied; } #- this function is "suggests vs requires" safe: |