summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-06-14 12:45:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-06-14 12:45:26 +0000
commit265873689d80f7228f836d28de9d344b97026869 (patch)
treede34e7b3c4a0a4163ce9685794d1ea559d87bb56 /perl-install
parent70607f20d15531bb83f3a7e590076abc89a0f356 (diff)
downloaddrakx-265873689d80f7228f836d28de9d344b97026869.tar
drakx-265873689d80f7228f836d28de9d344b97026869.tar.gz
drakx-265873689d80f7228f836d28de9d344b97026869.tar.bz2
drakx-265873689d80f7228f836d28de9d344b97026869.tar.xz
drakx-265873689d80f7228f836d28de9d344b97026869.zip
(write_grub) adapt to grub-0.97-2mdk
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm3
1 files changed, 2 insertions, 1 deletions
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 <<EOF