From 04cc12c27f9aabca5af41ca25d6d082831bd8ec1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 6 Dec 2013 15:05:00 +0100
Subject: fix a crash in rpmdrake when package list is empty (mga#11901)

---
 perl-install/NEWS     | 2 ++
 perl-install/ugtk3.pm | 1 +
 2 files changed, 3 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index d3d195ee2..60afabf72 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- fix a crash in rpmdrake when package list is empty (mga#11901)
+
 Version 16.8 - 5 December 2013
 
 - prevent drakxtools-backend to require Glib::Object::Introspection (mga#11842)
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 445c50780..24447d236 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -242,6 +242,7 @@ sub gtktreeview_children {
     my @l;
     $model or return;
     my $p = $model->iter_children($iter);
+    $p or return;
     while ($model->iter_next($p)) {
 	push @l, $p->copy;
     }
-- 
cgit v1.2.1