From 0dc4836b8b9a99796499836d7886cc583745f54c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 20 Jun 2016 23:01:01 +0200
Subject: perl_checker: fix backup extension

---
 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 24be5d821..f9af5620f 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2048,7 +2048,7 @@ sub restore_previous_MBR_bootloader {
 sub install_grub2 {
     my ($bootloader, $all_hds) = @_;
     write_grub2($bootloader, $all_hds);
-    write_grub2_install_sh($bootloader, $o_backup_extension);
+    write_grub2_install_sh($bootloader, '.old');
     install_raw_grub2();
 }
 
-- 
cgit v1.2.1