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 | |
| 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
| -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}; }); } |