summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-09-14 18:25:46 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-09-14 18:25:46 +0000
commitd4079232d73723aab49dfa9d81187a7e8a60bf55 (patch)
treee28bf94037814ee1525a0a81a9dd9a767402eab1 /perl-install/my_gtk.pm
parent2a2707db7de871a11d1ad830964c426b147d3873 (diff)
downloaddrakx-d4079232d73723aab49dfa9d81187a7e8a60bf55.tar
drakx-d4079232d73723aab49dfa9d81187a7e8a60bf55.tar.gz
drakx-d4079232d73723aab49dfa9d81187a7e8a60bf55.tar.bz2
drakx-d4079232d73723aab49dfa9d81187a7e8a60bf55.tar.xz
drakx-d4079232d73723aab49dfa9d81187a7e8a60bf55.zip
workaround ERROR: Can't call method "child" on an undefined value at
/usr/lib/libDrakX/my_gtk.pm line 94
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm2
1 files changed, 1 insertions, 1 deletions
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};