From a59f53492daef8f0bf1d8f3cca3f567de5aa5037 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 27 Jun 2014 19:06:49 +0200
Subject: fix comparing packages

compare_pkg() is the right method to invoke,
compare() implies stringifying a URPM::Package which is not what we want
regarding version comparison
---
 Rpmdrake/pkg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 3d80d269..907def78 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -524,7 +524,7 @@ sub get_pkgs {
         update_pbar($gurpm);
 	$pkg->flag_upgrade or next;
 	my $key = pkg2medium($pkg, $urpm) . $pkg->name . $pkg->arch;
-	$l{$key} = $pkg if !$l{$key} || $l{$key}->compare($pkg);
+	$l{$key} = $pkg if !$l{$key} || $l{$key}->compare_pkg($pkg);
     }
     my @installable_pkgs = map { my $n = $_->fullname; $all_pkgs{$n} = { pkg => $_ }; $n } values %l;
     undef %l;
-- 
cgit v1.2.1