From 919291c6a9b02174dd43e76325013a52ac47de7a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 2 Feb 2003 00:20:48 +0000 Subject: fix grub installed on {first_hd_device} instead of {boot} (bug #1199) --- perl-install/bootloader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 79e77c87f..e57fd67dc 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -996,7 +996,7 @@ sub write_grub_config { } } } - my $dev = dev2grub($bootloader->{first_hd_device} || $bootloader->{boot}, \%dev2bios); + my $dev = dev2grub($bootloader->{boot}, \%dev2bios); my ($s1, $s2, $m) = map { $file2grub->("/boot/grub/$_") } qw(stage1 stage2 menu.lst); my $f = "/boot/grub/install.sh"; output "$::prefix$f", -- cgit v1.2.1