aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-08 08:10:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-08 08:10:31 +0000
commit2ea266a6eb9b6910e7227d0a571d9118f7f8a87b (patch)
treed0429070b53b0623834f5ef3ca5fbd1b9bf7679e
parent1a8fd0152093dba6cea8ba7e785f80d69db26d00 (diff)
downloadperl-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.pm8
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: