From bca2d23304c03118e7ec5059c841647af4de10bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 25 Jul 2016 15:24:44 +0200
Subject: fix .old backup for grub2's grub.cfg

rationale: write_*() takes (bootloader, all_hd, ext) as parameters (when
called from installkernel -> bootloader-config and then only when
migrating to uuids

as we don't care for 2 first for grub2, just ignore the 3rd too
---
 perl-install/NEWS          | 3 +++
 perl-install/bootloader.pm | 5 ++---
 perl-install/install/NEWS  | 3 +++
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index e7d665e26..e74a7d043 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakboot:
+  o fix .old backup for grub2's grub.cfg
+
 Version 17.52 - 17 July 2016
 
 - drakboot:
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index b99db9f83..2451df253 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1903,12 +1903,11 @@ sub write_grub2_default_entry {
     }
 }
 
-sub write_grub2 {
-    my ($o_backup_extension) = @_;
+sub write_grub2() {
     my $error;
 
     my $f1 = "$::prefix/boot/grub2/grub.cfg";
-    renamef($f1, $f1 . ($o_backup_extension || '.old'));
+    renamef($f1, $f1 . '.old');
     run_program::rooted($::prefix, 'update-grub2', '2>', \$error) or die "update-grub2 failed: $error";
     log::l("update-grub2 logs: $error");
 
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 93f81aa8c..83e1e0380 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- bootloader configuration:
+  o fix .old backup for grub2's grub.cfg
+
 Version 17.52 - 17 July 2016
 
 - do not preinstall mageia-gfxboot-theme
-- 
cgit v1.2.1