From d4079232d73723aab49dfa9d81187a7e8a60bf55 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Sat, 14 Sep 2002 18:25:46 +0000
Subject: workaround ERROR: Can't call method "child" on an undefined value at
 /usr/lib/libDrakX/my_gtk.pm line 94

---
 perl-install/my_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 98b5db526..4f2eb40aa 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -91,7 +91,7 @@ sub new {
 	$::WizardTable->attach($o->{window}, 0, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0);
     }
 
-    if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child }) {
+    if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug && $::Plug->child }) {
 	$o->{isEmbedded} = 1;
 	$o->{window} = new Gtk::HBox(0,0);
 	$o->{rwindow} = $o->{window};
-- 
cgit v1.2.1