From 3b8ff8daaaa524813ef41de7f15be13fab5759b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 29 Jan 2003 12:22:24 +0000
Subject: don't set $::main_window during install

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

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 459468e30..593a12831 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -55,7 +55,7 @@ sub main {
     local $in->{grab} = 1;
 
     $w = ugtk2->new('DiskDrake');
-    $::main_window = $w->{rwindow} unless $::isEmbedded;
+    $::main_window = $w->{rwindow} if !$::isEmbedded && !$::isInstall;
     my $rc = "/usr/share/libDrakX/diskdrake.rc";
     -r $rc or $rc = dirname(__FILE__) . "/../diskdrake.rc";
     -r $rc or $rc = dirname(__FILE__) . "/../share/diskdrake.rc";
-- 
cgit v1.2.1