summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-02 19:39:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-02 19:39:02 +0000
commitf3c14a6848d97b18f4baac27213315b3a5f6d023 (patch)
treeaa63c820be843e97327ea1ab91f5df326d65a738 /perl-install/install_steps_gtk.pm
parented567cedc049cb91e10084d084b9f6752256fb75 (diff)
downloaddrakx-backup-do-not-use-f3c14a6848d97b18f4baac27213315b3a5f6d023.tar
drakx-backup-do-not-use-f3c14a6848d97b18f4baac27213315b3a5f6d023.tar.gz
drakx-backup-do-not-use-f3c14a6848d97b18f4baac27213315b3a5f6d023.tar.bz2
drakx-backup-do-not-use-f3c14a6848d97b18f4baac27213315b3a5f6d023.tar.xz
drakx-backup-do-not-use-f3c14a6848d97b18f4baac27213315b3a5f6d023.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm1
1 files changed, 1 insertions, 0 deletions
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/$_" : $_;