From dfba999426e91786aa64e7938b4f7876a42ec6cf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 21 Oct 1999 15:02:06 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_interactive.pm | 6 ++++--
 1 file changed, 4 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 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."),
-- 
cgit v1.2.1