summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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 {