diff options
| -rw-r--r-- | perl-install/bootloader.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 844b6a911..7d500c3a8 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1964,6 +1964,12 @@ sub restore_previous_MBR_bootloader { output($dev, scalar cat_(_dev_to_MBR_backup($dev))); } +sub install_grub2 { + my ($bootloader, $all_hds) = @_; + my $error; + run_program::rooted($::prefix, 'grub2-install', '2>', \$error, $bootloader->{boot}) or die "grub2 failed: $error"; +} + sub install_grub { my ($bootloader, $all_hds) = @_; |