From 4c1cb5006360ccb780926000bd57f150e0fc8fbe Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 24 Jun 2016 17:37:08 +0200
Subject: simplify after previous commit

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 61d69627e..199ddf293 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1906,7 +1906,7 @@ sub write_grub2_default_entry {
 }
 
 sub write_grub2 {
-    my ($bootloader, $o_all_hds, $o_backup_extension) = @_;
+    my ($o_backup_extension) = @_;
     my $error;
 
     my $f1 = "$::prefix/boot/grub2/grub.cfg";
@@ -2133,7 +2133,7 @@ sub restore_previous_MBR_bootloader {
 sub install_grub2 {
     my ($bootloader, $all_hds) = @_;
     write_grub2_sysconfig($bootloader, $all_hds);
-    write_grub2($bootloader, $all_hds);
+    write_grub2();
     write_grub2_default_entry($bootloader, $all_hds);
     write_grub2_install_sh($bootloader, '.old');
     install_raw_grub2();
-- 
cgit v1.2.1