diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 0d9db4ae9..1d12eed53 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -599,7 +599,9 @@ sub setupBootloader { my ($o, $more) = @_; my $b = $o->{bootloader}; - if ($::beginner && $more == ($b->{bootUnsafe} ? 0 : 1)) { + $more++ if $b->{bootUnsafe}; + + if ($::beginner && $more == 1) { my @l = (__("First sector of drive (MBR)"), __("First sector of boot partition")); my $boot = $o->{hds}[0]{device}; @@ -634,7 +636,7 @@ _("Restrict command line options") => { val => \$b->{restricted}, type => "bool" $b->{vga} = $lilo::vga_modes{$b->{vga}} || $b->{vga}; } - until ($::beginner && !$more) { + until ($::beginner && $more <= 1) { my $c = $o->ask_from_list_('', _("Here are the following entries in LILO. You can add some more or change the existent ones."), |