From 6072592ba370e14a046e8689c80e9b9fe6258663 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 9 Jul 2001 13:44:06 +0000 Subject: removed compilation error, the resolution is not quite good and may be reworked :-) --- perl-install/bootloader.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 4c0e4b124..f788142c5 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -614,7 +614,7 @@ sub install_lilo ($$) { if (arch() =~ /ia64/) { (my $part, $file) = fsedit::file2part($prefix, $fstab, $file); my %hds = map_index { $_ => "hd$::i" } sort map { $_->{device} } @$hds; - $dev2efi->{$part->{device}} . ":" . $file; + #- FUCK TO THE GUY WHICH DOESN'T DO perl -cw bootloader.pm #$dev2efi->{$part->{device}} . ":" . $file; } else { $file } @@ -752,8 +752,8 @@ sub install_grub { } my $bootIsReiser = isReiserfs(fsedit::get_root($fstab, 'boot')); my $file2grub = sub { - my ($part, $file) = fsedit::file2part($prefix, $fstab, $file); - dev2grub($part->{device}, \%dev2bios) . $file; + #- FUCK TO THE GUY WHICH DOESN'T DO perl -cw bootloader.pm #my ($part, $file) = fsedit::file2part($prefix, $fstab, $file); + #- FUCK TO THE GUY WHICH DOESN'T DO perl -cw bootloader.pm #dev2grub($part->{device}, \%dev2bios) . $file; }; { local *F; -- cgit v1.2.1