From 0a6678837ce51a3086ec07bac3be9706240a8562 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 2 Mar 2001 16:09:31 +0000 Subject: added graphical LILO by default. --- perl-install/any.pm | 3 +-- perl-install/bootloader.pm | 8 +++++++- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/perl-install/any.pm b/perl-install/any.pm index 1dc241f89..55264d62a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -94,7 +94,6 @@ sub setupBootloader { if (!$::expert && $more < 1) { #- automatic - $b->{methods}{lilo} and $b->{methods}{lilo} = "boot-graphic.b"; } elsif (!$::expert) { my @l = (__("First sector of drive (MBR)"), __("First sector of boot partition")); @@ -126,7 +125,7 @@ sub setupBootloader { #- put lilo if grub is chosen, so that /etc/lilo.conf is generated __("Grub") => sub { $b->{methods}{grub} = 1; exists $b->{methods}{lilo} - and $b->{methods}{lilo} = "boot-graphic.b" }), + and $b->{methods}{lilo} = "boot-menu.b" }), if_(exists $b->{methods}{loadlin}, __("Boot from DOS/Windows (loadlin)") => sub { $b->{methods}{loadlin} = 1 }), ); diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 637681098..f30e664df 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -339,7 +339,13 @@ wait %d seconds for default boot. grub => bool(arch() !~ /sparc/ && availableRamMB() < 800), #- don't use grub if more than 800MB loadlin => bool(arch() !~ /sparc/) && -e "/initrd/loopfs/lnx4win", ); - $lilo->{methods} ||= { map { $_ => 1 } grep { $l{$_} } keys %l }; + unless ($lilo->{methods}) { + $lilo->{methods} ||= { map { $_ => 1 } grep { $l{$_} } keys %l }; + if ($lilo->{methods}{lilo} && -e "$prefix/boot/boot-graphic.b") { + $lilo->{methods}{lilo} = "boot-graphic.b"; + exists $lilo->{methods}{grub} and $lilo->{methods}{grub} = undef; + } + } } sub suggest_floppy { -- cgit v1.2.1