diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-12-09 19:58:34 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-12-09 19:58:34 +0000 |
commit | 4dc01a41ffd6f93017515d742ece55dfad1194a0 (patch) | |
tree | 4683e883bda6ac8824b1e677ef338c683132bbfa | |
parent | 76b83cdb6af224735852532c06f7d6cd493b0697 (diff) | |
download | drakx-4dc01a41ffd6f93017515d742ece55dfad1194a0.tar drakx-4dc01a41ffd6f93017515d742ece55dfad1194a0.tar.gz drakx-4dc01a41ffd6f93017515d742ece55dfad1194a0.tar.bz2 drakx-4dc01a41ffd6f93017515d742ece55dfad1194a0.tar.xz drakx-4dc01a41ffd6f93017515d742ece55dfad1194a0.zip |
perl_checker cleanup
-rw-r--r-- | perl-install/bootloader.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 8ef24ffcf..4f01093b2 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1971,7 +1971,7 @@ sub restore_previous_MBR_bootloader { } sub install_grub2 { - my ($bootloader, $all_hds) = @_; + my ($bootloader, $_all_hds) = @_; my $error; run_program::rooted($::prefix, 'grub2-install', '2>', \$error, $bootloader->{boot}) or die "grub2 failed: $error"; } |