From 5384179e51dbeb221021f6b716abfe9ed937d2e7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 28 Mar 2012 20:43:53 +0000
Subject: (get_pkgs) consider name+arch as key when filtering out older
 packages/updates, thus fixing only listing first arch seen (mga#5047)

regression introduced in r3601 on March 20 2012:
    (get_pkgs) only display latest updates, not all of them (mga#2258, mga#4534)

    git-svn-id: svn+ssh://svn.mageia.org/svn/soft/rpmdrake/trunk@3601 5b7c3c08-40e5-403b-9995-ace06908e4af
---
 NEWS            | 3 +++
 Rpmdrake/pkg.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index f22c9fdc..f90e3098 100644
--- a/NEWS
+++ b/NEWS
@@ -1,4 +1,7 @@
 - display a graphical error message when debug environment does not exist
+- rpmdrake:
+  o show all arches for a given package (mga#5047)
+    (regression introduced with only "display latest updates" in 5.31)
 
 Version 5.32 - 26 March 2012, Thierry Vignaud
 
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 5f222cdc..2f6bfe55 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -524,7 +524,7 @@ sub get_pkgs {
     foreach my $pkg (@{$urpm->{depslist}}) {
         update_pbar($gurpm);
 	$pkg->flag_upgrade or next;
-	my $short_name = $pkg->name;
+	my $short_name = $pkg->name . $pkg->arch;
 	$l{$short_name} = $pkg if !$l{$short_name} || $l{$short_name}->compare($pkg);
     }
     my @installable_pkgs = map { my $n = $_->fullname; $all_pkgs{$n} = { pkg => $_ }; $n } values %l;
-- 
cgit v1.2.1