diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-02-15 01:33:05 +0100 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-05 16:45:33 +0100 |
commit | 0fe91460dbc8bebd3052ca768692f85e3b14336c (patch) | |
tree | bdedccde95c64844c6915cf17096946358abfea5 /URPM/Resolve.pm | |
parent | 95ab11ecffb473336a3cf4f84558b5d71e58f701 (diff) | |
download | perl-URPM-0fe91460dbc8bebd3052ca768692f85e3b14336c.tar perl-URPM-0fe91460dbc8bebd3052ca768692f85e3b14336c.tar.gz perl-URPM-0fe91460dbc8bebd3052ca768692f85e3b14336c.tar.bz2 perl-URPM-0fe91460dbc8bebd3052ca768692f85e3b14336c.tar.xz perl-URPM-0fe91460dbc8bebd3052ca768692f85e3b14336c.zip |
(resolve_requested_suggests) small optimization
Diffstat (limited to 'URPM/Resolve.pm')
-rw-r--r-- | URPM/Resolve.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 4ad9e7c..1c2d43f 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -895,7 +895,7 @@ sub resolve_requested_suggests { # workaround: if you do "urpmi virtual_pkg" and one virtual_pkg is already installed, # it will ask anyway for the other choices foreach my $suggest (keys %suggests) { - $db->traverse_tag('whatprovides', [ $suggest ], sub { + $db->traverse_tag_find('whatprovides', $suggest, sub { delete $suggests{$suggest}; }); } |