From 8b99e7b6f854fcef121178a4777836d70b6754cd Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 31 Jan 2003 16:22:11 +0000
Subject: avoid poping

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 192b8d95a..0c6d0dbed 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -722,7 +722,7 @@ sub new {
     $o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient};
     
 
-    $o->{pop_it} ||= $pop_it || $::WizardTable && listlength($::WizardTable->get_children);
+    $o->{pop_it} ||= $pop_it || $::WizardTable && listlength($::WizardTable->get_children) > ($::isInstall ? 0 : 1);
 
     if ($::isWizard && !$o->{pop_it}) {
 	$o->{isWizard} = 1;
-- 
cgit v1.2.1