From 3ba1c3e5fa80c18d4ca3093cc31efea7e11dd603 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 21 Mar 2012 00:04:47 +0000
Subject: kill doble use

---
 Rpmdrake/gui.pm | 1 -
 Rpmdrake/pkg.pm | 3 +++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index d197c645..e65811de 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -37,7 +37,6 @@ use Rpmdrake::formatting;
 use Rpmdrake::init;
 use Rpmdrake::icon;
 use Rpmdrake::pkg;
-use Rpmdrake::icon;
 use feature 'state';
 
 our @EXPORT = qw(
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)");
 }
-- 
cgit v1.2.1