diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-09-17 18:03:07 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-09-17 18:03:07 +0000 |
| commit | b490c4441ec9b1078b1851d490f3cf5b87f29ee3 (patch) | |
| tree | 017febf8177540df2e24e1895d42d4f5bebd6d5b | |
| parent | 9798710de11d8451f613d753cf0051967c753fac (diff) | |
| download | perl-URPM-b490c4441ec9b1078b1851d490f3cf5b87f29ee3.tar perl-URPM-b490c4441ec9b1078b1851d490f3cf5b87f29ee3.tar.gz perl-URPM-b490c4441ec9b1078b1851d490f3cf5b87f29ee3.tar.bz2 perl-URPM-b490c4441ec9b1078b1851d490f3cf5b87f29ee3.tar.xz perl-URPM-b490c4441ec9b1078b1851d490f3cf5b87f29ee3.zip | |
(resolve_requested_suggests) micro-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 b6ceac6..7b38e2e 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -895,7 +895,7 @@ sub resolve_requested_suggests { my %suggests = map { $_ => 1 } $pkg->suggests or next; #- do not install a package that has already been suggested - $db->traverse_tag('name', [ $pkg->name ], sub { + $db->traverse_tag_find('name', $pkg->name, sub { my ($p) = @_; delete $suggests{$_} foreach $p->suggests; }); |