From 5ae632c14a4fff631d5cbd301369128236dd5657 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 6 Dec 2012 09:38:39 +0000
Subject: (get_pkgs) add a fix for a rare crash (mga#7439)

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

diff --git a/NEWS b/NEWS
index 6a87ccaa..2c7dbc2a 100644
--- a/NEWS
+++ b/NEWS
@@ -1,4 +1,5 @@
 - cleanups
+- add a fix for a rare crash (mga#7439)
 - look at _all_ config files and only those instead of manually
   matching file paths beginning with "^/etc" (mga#8310)
 - update GUI package list
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 19d4fed9..fe758998 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -575,7 +575,7 @@ sub get_pkgs {
        installable => \@installable_pkgs,
        updates => \@updates,
        meta_pkgs => \@meta_pkgs,
-       gui_pkgs => [ grep { member(($all_pkgs{$_}{pkg}->fullname)[0], @gui_pkgs) } keys %all_pkgs ],
+       gui_pkgs => [ grep { my $p = $all_pkgs{$_}{pkg}; $p && member(($p->fullname)[0], @gui_pkgs) } keys %all_pkgs ],
        update_descr => $update_descr,
        backports => [ @inactive_backports, @active_backports ],
        inactive_backports => \@inactive_backports
-- 
cgit v1.2.1