From 64dd97d13696ac8e96935f9bd3b963e5ed2290a4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 9 Jul 2001 16:16:38 +0000
Subject: fixed compilation error.

---
 perl-install/bootloader.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e7a0734fb..c4e4acd9c 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -752,9 +752,9 @@ sub install_grub {
 	  join '', map { "($_) /dev/$bios2dev{$_}\n" } sort keys %bios2dev;
     }
     my $bootIsReiser = isReiserfs(fsedit::get_root($fstab, 'boot'));
-    my $file2grub = sub {	
-	#- 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;
+    my $file2grub = sub {
+	my ($part, $file) = fsedit::file2part($prefix, $fstab, $_[0]);
+	dev2grub($part->{device}, \%dev2bios) . $file;
     };
     {
 	local *F;
-- 
cgit v1.2.1