From cada7c9d71a4a2cbd2ecdb3b84c675f59d442aa0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 13 Oct 1999 22:43:01 +0000 Subject: no_comment --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 37284e52a..0282b6269 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -599,7 +599,7 @@ sub setupBootloader { my ($o, $more) = @_; my $b = $o->{bootloader}; - if ($::beginner && !$more) { + if ($::beginner && $more == 1) { my @l = (__("First sector of drive (MBR)"), __("First sector of boot partition")); my $boot = $o->{hds}[0]{device}; @@ -608,7 +608,7 @@ sub setupBootloader { $o->ask_from_list_(_("LILO Installation"), _("Where do you want to install the bootloader?"), \@l, $l[!$onmbr]) eq $l[0]; - } else { + } elsif ($more || !$::beginner) { $::expert and $o->ask_yesorno('', _("Do you want to use LILO?"), 1) || return; my @l = ( -- cgit v1.2.1