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

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

diff --git a/NEWS b/NEWS
index 33164c60..118cca19 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,4 @@
+- 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)
 
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 2a4be887..6662472f 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -577,7 +577,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