From 265873689d80f7228f836d28de9d344b97026869 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 14 Jun 2005 12:45:26 +0000 Subject: (write_grub) adapt to grub-0.97-2mdk --- perl-install/bootloader.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 534dfe895..fd13a797f 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1339,7 +1339,8 @@ sub write_grub { { my $f = "$::prefix/boot/grub/install.sh"; my $dev = device_string2grub($bootloader->{boot}, \@legacy_floppies, \@sorted_hds); - my ($stage1, $stage2, $menu_lst) = map { $file2grub->("/boot/grub/$_") } qw(stage1 stage2 menu.lst); + my ($stage1, $stage2) = map { $file2grub->(glob("/lib/grub/*/$_")) } qw(stage1 stage2); + my ($menu_lst) = $file2grub->("/boot/grub/menu.lst"); renamef($f, "$f.old"); output_with_perm("$::prefix/boot/grub/install.sh", 0755, "grub --device-map=/boot/grub/device.map --batch <