summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-09 16:16:38 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-09 16:16:38 +0000
commit64dd97d13696ac8e96935f9bd3b963e5ed2290a4 (patch)
tree60f2d16b3bba6c7557a84ade3accda4b41f12e0d /perl-install
parent091d9832ca4ca68effddfff572cb2b96b4a41c15 (diff)
downloaddrakx-backup-do-not-use-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar
drakx-backup-do-not-use-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar.gz
drakx-backup-do-not-use-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar.bz2
drakx-backup-do-not-use-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar.xz
drakx-backup-do-not-use-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.zip
fixed compilation error.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm6
1 files changed, 3 insertions, 3 deletions
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;