summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-09 20:14:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-09 20:14:56 +0000
commit05e26a0ea74d05252fa1443d213f58493910b1a0 (patch)
tree78244505b48855bf1c87749caea6676a41757361 /perl-install/bootloader.pm
parente895f62a7623d51ba0529b08d3c2abe4d2d2228a (diff)
downloaddrakx-backup-do-not-use-05e26a0ea74d05252fa1443d213f58493910b1a0.tar
drakx-backup-do-not-use-05e26a0ea74d05252fa1443d213f58493910b1a0.tar.gz
drakx-backup-do-not-use-05e26a0ea74d05252fa1443d213f58493910b1a0.tar.bz2
drakx-backup-do-not-use-05e26a0ea74d05252fa1443d213f58493910b1a0.tar.xz
drakx-backup-do-not-use-05e26a0ea74d05252fa1443d213f58493910b1a0.zip
(install_grub): altconfigfile only if /boot is not reiserfs :-/
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index f152e4be1..6bb970f33 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -707,9 +707,10 @@ sub install_grub {
output "$prefix/boot/grub/device.map",
join '', map { "($_) /dev/$bios2dev{$_}\n" } sort keys %bios2dev;
}
+ my $bootIsReiser = isReiserfs(fsedit::get_root($fstab, 'boot'));
my $file2grub = sub {
my $file = expand_symlinks "$prefix$_[0]";
- if (!isReiserfs(fsedit::get_root($fstab, 'boot'))) { #- grub in reiserfs doesn't handle symlinks.
+ if (!$bootIsReiser) { #- grub in reiserfs doesn't handle symlinks.
if (my $l = readlink "$prefix$_[0]") {
$l =~ m|/| or $file =~ s/\Q$l/basename $_[0]/e; #- keep simple end symlinks
}
@@ -742,7 +743,8 @@ sub install_grub {
print F "color black/cyan yellow/cyan";
print F "i18n ", $file2grub->("/boot/grub/messages");
print F "keytable ", $file2grub->($lilo->{keytable}) if $lilo->{keytable};
- print F "altconfigfile ", $file2grub->(my $once = "/boot/grub/menu.once");
+ #- since we use notail in reiserfs, altconfigfile is broken :-(
+ print F "altconfigfile ", $file2grub->(my $once = "/boot/grub/menu.once") if !$bootIsReiser;
output "$prefix$once", " " x 100;
map_index {