From f3c14a6848d97b18f4baac27213315b3a5f6d023 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 2 Sep 2000 19:39:02 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 0eacebedb..2e66f5ce4 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -287,6 +287,7 @@ sub choosePackagesTree {
     my $pix_installed= [ gtkcreate_xpm($w->{window}, "$ENV{SHARE_PATH}/rpm-installed.xpm") ];
 
     my $add_parent; $add_parent = sub {
+	$_[0] or return undef;
 	if (my $w = $wtree{$_[0]}) { return $w }
 	my $s; foreach (split '/', $_[0]) {
 	    my $s2 = $s ? "$s/$_" : $_;
-- 
cgit v1.2.1