diff options
Diffstat (limited to 'Rpmdrake/pkg.pm')
-rw-r--r-- | Rpmdrake/pkg.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 4ed0d497..ea9e3e36 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -190,6 +190,9 @@ sub extract_header { sub find_installed_version { my ($p) = @_; my @version; + # FIXME: make it faster + # 1) reuse $db if set + # 2) s/traverse_tag/traverse_tag_find/ and time it open_rpm_db()->traverse_tag('name', [ $p->name ], sub { push @version, $_[0]->version . '-' . $_[0]->release }); @version ? join(',', sort @version) : N("(none)"); } |