From 4dc01a41ffd6f93017515d742ece55dfad1194a0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 9 Dec 2012 19:58:34 +0000
Subject: perl_checker cleanup

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
 }
-- 
cgit v1.2.1