From abe9015866eff5909b8242ef944f73de11bc4285 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 25 May 2000 12:05:57 +0000 Subject: *** empty log message *** --- perl-install/ChangeLog | 4 +++- perl-install/any.pm | 2 +- perl-install/install_steps_interactive.pm | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 9fe9eb570..f8aaacc0f 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -6,8 +6,10 @@ * install2.pm: removed create boot disk and create auto install disk on sparc*. force writing of /etc/conf.modules for step setupBootloader. * install_steps_interactive.pm: added missing $prefix for glob_. call - configure_entry in setupSILO. + configure_entry in setupSILO. fixed cancel or None entry on setupBootloader. * modules.pm: updated alias for sparc*. + * any.pm: fixed proprable wrong test for setupBootloader in beginner at + the very beginning. 2000-05-24 François Pons diff --git a/perl-install/any.pm b/perl-install/any.pm index 2afc3b251..120f1a387 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -56,7 +56,7 @@ sub setupBootloader { $more++ if $b->{bootUnsafe}; - if ($::beginner && $more == 1) { + if ($::beginner && $more >= 1) { my @l = (__("First sector of drive (MBR)"), __("First sector of boot partition")); $in->set_help('setupBootloaderBeginner') unless $::isStandalone; diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index eac2a20f9..fbc26734b 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -777,7 +777,7 @@ failures. Would you like to create a bootdisk for your system?"), #------------------------------------------------------------------------------ sub setupLILO { my ($o, $more) = @_; - any::setupBootloader($o, $o->{bootloader}, $o->{hds}, $o->{fstab}, $o->{security}, $o->{prefix}, $more) unless $o->{lnx4win}; + $o->{lnx4win} or any::setupBootloader($o, $o->{bootloader}, $o->{hds}, $o->{fstab}, $o->{security}, $o->{prefix}, $more) or return; eval { $o->SUPER::setupBootloader }; if ($@) { -- cgit v1.2.1