summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-29 12:39:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-29 12:39:59 +0000
commit074de8adaf6e0d910899b7ee0f14066dcc050af7 (patch)
tree1b951142b3f0fe8d6231dd5c56af111261c5a214 /perl-install/install_steps_gtk.pm
parentbbd54ab4ee665a9afdf8642aa767bdbd608131c6 (diff)
downloaddrakx-backup-do-not-use-074de8adaf6e0d910899b7ee0f14066dcc050af7.tar
drakx-backup-do-not-use-074de8adaf6e0d910899b7ee0f14066dcc050af7.tar.gz
drakx-backup-do-not-use-074de8adaf6e0d910899b7ee0f14066dcc050af7.tar.bz2
drakx-backup-do-not-use-074de8adaf6e0d910899b7ee0f14066dcc050af7.tar.xz
drakx-backup-do-not-use-074de8adaf6e0d910899b7ee0f14066dcc050af7.zip
ensure choosing install-or-upgrade can't be done twice
(since it's badly handled and hard to handle nicely)
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 1ad27b7fe..ccfe6a53c 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -155,7 +155,7 @@ press `F1' when booting on CDROM, then enter `text'.")) if $first_time && availa
#------------------------------------------------------------------------------
sub selectInstallClass1 {
my ($o, $verif, $l, $def, $l2, $def2) = @_;
- $::live || @$l == 1 and return $o->SUPER::selectInstallClass1($verif, $l, $def, $l2, $def2);
+ $::live || @$l == 1 || !@$l2 and return $o->SUPER::selectInstallClass1($verif, $l, $def, $l2, $def2);
my $w = my_gtk->new(_("Install Class"));
my $focused;