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)

---
 Rpmdrake/pkg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Rpmdrake')

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