diff options
| -rw-r--r-- | perl-install/bootloader.pm | 10 |
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')); |