diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-07-09 16:16:38 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-07-09 16:16:38 +0000 |
| commit | 64dd97d13696ac8e96935f9bd3b963e5ed2290a4 (patch) | |
| tree | 60f2d16b3bba6c7557a84ade3accda4b41f12e0d /perl-install | |
| parent | 091d9832ca4ca68effddfff572cb2b96b4a41c15 (diff) | |
| download | drakx-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar drakx-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar.gz drakx-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar.bz2 drakx-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.tar.xz drakx-64dd97d13696ac8e96935f9bd3b963e5ed2290a4.zip | |
fixed compilation error.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 6 |
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; |