diff options
| -rw-r--r-- | Rpmdrake/pkg.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 0219fd67..9b76baea 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -191,12 +191,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, version_release($_[0]) }); - @version ? join(',', sort @version) : N("(none)"); + my $version; + open_rpm_db()->traverse_tag_find('name', $p->name, sub { $version = version_release($_[0]) }); + $version || N("(none)"); } my $canceled; |