summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm10
1 files 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'));