From ebce08681c86f8106331ab4ba56871ef6d811dc2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 6 May 2015 19:34:57 +0200
Subject: perl_checker cleanup

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e8d7d1973..1088c4e43 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2013,12 +2013,10 @@ sub restore_previous_MBR_bootloader {
 sub install_grub2 {
     my ($bootloader, $all_hds) = @_;
     write_grub2($bootloader, $all_hds);
-    my $boot = $bootloader->{boot};
-    install_raw_grub2($boot);
+    install_raw_grub2();
 }
 
-sub install_raw_grub2 {
-    my ($boot) = @_;
+sub install_raw_grub2() {
     my $error;
     my $f = '/boot/grub2/install.sh';
     if (!run_program::rooted($::prefix, "sh", "2>", \$error, $f)) {
-- 
cgit v1.2.1