From c7f2e4ed116cb4001b97baba1022a4d94b9ab7b9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 2 Mar 2004 13:38:59 +0000 Subject: (read) default to lilo if grub config file isn't there (workaround buggy detectloader only checking MBR) --- perl-install/bootloader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 30a007cd2..0c6b38e96 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -75,7 +75,7 @@ sub mkinitrd { sub read() { my $file = sprintf("/etc/%s.conf", arch() =~ /sparc/ ? 'silo' : arch() =~ /ppc/ ? 'yaboot' : 'lilo'); - my $bootloader = $file =~ /lilo/ && detect_bootloader() =~ /GRUB/ ? read_grub() : read_lilo($file); + my $bootloader = $file =~ /lilo/ && detect_bootloader() =~ /GRUB/ && -f "/boot/grub/menu.lst" ? read_grub() : read_lilo($file); if (my $default = find { $_ && $_->{append} } get_label($bootloader->{default}, $bootloader), @{$bootloader->{entries}}) { $bootloader->{perImageAppend} ||= $default->{append}; } -- cgit v1.2.1