aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-11-16 20:18:35 +0000
committerThierry Vignaud <tv@mageia.org>2012-11-16 20:18:35 +0000
commitbc4a3f75efe06deae94bbcc0daf510fd95e39338 (patch)
treee43bb415f29bb7f9dd5b2bba3f1bcfa7d5f7ef7a /URPM
parent88cca699e7dffa487c2382293dd97f6efbeca97a (diff)
downloadperl-URPM-bc4a3f75efe06deae94bbcc0daf510fd95e39338.tar
perl-URPM-bc4a3f75efe06deae94bbcc0daf510fd95e39338.tar.gz
perl-URPM-bc4a3f75efe06deae94bbcc0daf510fd95e39338.tar.bz2
perl-URPM-bc4a3f75efe06deae94bbcc0daf510fd95e39338.tar.xz
perl-URPM-bc4a3f75efe06deae94bbcc0daf510fd95e39338.zip
(unsatisfied_requires) (slightly) optimize
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 a2827eb..df82e67 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -491,14 +491,14 @@ sub unsatisfied_requires {
#- check on installed system if a package which is not obsoleted is satisfying the require.
my $satisfied = 0;
if ($n =~ m!^/!) {
- $db->traverse_tag('path', [ $n ], sub {
+ $db->traverse_tag_find('path', $n, sub {
my ($p) = @_;
exists $state->{rejected}{$p->fullname} and return;
$state->{cached_installed}{$n}{$p->fullname} = undef;
++$satisfied;
});
} else {
- $db->traverse_tag('whatprovides', [ $n ], sub {
+ $db->traverse_tag_find('whatprovides', $n, sub {
my ($p) = @_;
exists $state->{rejected}{$p->fullname} and return;
foreach ($p->provides) {