From 4f8bd54ef3c34a5bb33a9d5973c0393a652ce882 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 24 Jun 2016 15:41:05 +0200
Subject: (write_grub2_sysconfig) split it

needed for next commit
---
 perl-install/bootloader.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 4cb72fb0c..6f4c4cd7e 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1854,9 +1854,8 @@ sub crypt_grub2_password {
     chomp_($res);
 }
 
-sub write_grub2 {
+sub write_grub2_sysconfig {
     my ($bootloader, $_all_hds, $o_backup_extension) = @_;
-    my $error;
 
     # Set password prior to run update-grub2:
     my $pw_f = get_grub2_users();
@@ -1883,6 +1882,13 @@ sub write_grub2 {
     $conf{GRUB_TIMEOUT} = $bootloader->{timeout};
     renamef($f, $f . ($o_backup_extension || '.old'));
     setVarsInSh($f, \%conf);
+}
+
+sub write_grub2 {
+    my ($bootloader, $o_all_hds, $o_backup_extension) = @_;
+    my $error;
+
+    write_grub2_sysconfig($bootloader, $o_all_hds, $o_backup_extension);
 
     my $f1 = "$::prefix/boot/grub2/grub.cfg";
     renamef($f1, $f1 . ($o_backup_extension || '.old'));
-- 
cgit v1.2.1