From 3a26270493ecfaff905f1267853faccf4128018e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 29 Aug 2003 23:15:50 +0000 Subject: set {perImageAppend} to the append= line from the default entry or the first image= entry --- perl-install/bootloader.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 00a33a114..39b99815e 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -78,7 +78,11 @@ sub mkbootdisk { sub read() { my $file = sprintf("/etc/%s.conf", arch() =~ /sparc/ ? 'silo' : arch() =~ /ppc/ ? 'yaboot' : 'lilo'); - $file =~ /lilo/ && detect_bootloader() =~ /GRUB/ ? read_grub("/boot/grub/menu.lst") : read_lilo($file); + my $bootloader = $file =~ /lilo/ && detect_bootloader() =~ /GRUB/ ? read_grub("/boot/grub/menu.lst") : read_lilo($file); + if (my $default = find { $_ && $_->{append} } get_label($bootloader->{default}, $bootloader), @{$bootloader->{entries}}) { + $bootloader->{perImageAppend} ||= $default->{append}; + } + $bootloader; } sub read_grub { -- cgit v1.2.1