diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-11-16 20:18:35 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-11-16 20:18:35 +0000 |
| commit | bc4a3f75efe06deae94bbcc0daf510fd95e39338 (patch) | |
| tree | e43bb415f29bb7f9dd5b2bba3f1bcfa7d5f7ef7a | |
| parent | 88cca699e7dffa487c2382293dd97f6efbeca97a (diff) | |
| download | perl-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
| -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 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) { |