From c13991fce7b52fb9a134533a75993f877a65bd04 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 20 Feb 2002 12:20:47 +0000
Subject: added mcc kill if wait message

---
 perl-install/my_gtk.pm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 0a0c721e0..d77434780 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -95,13 +95,14 @@ sub new {
 	$::WizardTable->attach($o->{window}, 0, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0);
     }
 
-    $::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child } or return $o;
-    $o->{window} = new Gtk::HBox(0,0);
-    $o->{rwindow} = $o->{window};
-    $::Plug ||= new Gtk::Plug ($::XID);
-    $::Plug->show;
-    flush();
-    $::Plug->add($o->{window});
+    if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child }) {
+	$o->{window} = new Gtk::HBox(0,0);
+	$o->{rwindow} = $o->{window};
+	$::Plug ||= new Gtk::Plug ($::XID);
+	$::Plug->show;
+	flush();
+	$::Plug->add($o->{window});
+    }
     $::CCPID and kill "USR2", $::CCPID;
     $o;
 }
-- 
cgit v1.2.1