From bc4a3f75efe06deae94bbcc0daf510fd95e39338 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 16 Nov 2012 20:18:35 +0000
Subject: (unsatisfied_requires) (slightly) optimize

---
 URPM/Resolve.pm | 4 ++--
 1 file 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) {
-- 
cgit v1.2.1