summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-01-31 16:22:11 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-01-31 16:22:11 +0000
commit8b99e7b6f854fcef121178a4777836d70b6754cd (patch)
tree2af66c2fa88b889551b5a336ee9b7d11ce586dd5 /perl-install
parentcc9e04690dc0bd88d158fc9180e7fe24f0f47fcf (diff)
downloaddrakx-backup-do-not-use-8b99e7b6f854fcef121178a4777836d70b6754cd.tar
drakx-backup-do-not-use-8b99e7b6f854fcef121178a4777836d70b6754cd.tar.gz
drakx-backup-do-not-use-8b99e7b6f854fcef121178a4777836d70b6754cd.tar.bz2
drakx-backup-do-not-use-8b99e7b6f854fcef121178a4777836d70b6754cd.tar.xz
drakx-backup-do-not-use-8b99e7b6f854fcef121178a4777836d70b6754cd.zip
avoid poping
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
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;