diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-12-07 11:35:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-12-07 11:35:06 +0000 |
| commit | c8eae9623b3b9f9cd7c168ca13540ddca9317050 (patch) | |
| tree | ba6342930512e300d86e582bb88959271c88ebfb /perl-install | |
| parent | 20dcf9aa47a7f9ddf18864d346ee4eb16ee18000 (diff) | |
| download | drakx-backup-do-not-use-c8eae9623b3b9f9cd7c168ca13540ddca9317050.tar drakx-backup-do-not-use-c8eae9623b3b9f9cd7c168ca13540ddca9317050.tar.gz drakx-backup-do-not-use-c8eae9623b3b9f9cd7c168ca13540ddca9317050.tar.bz2 drakx-backup-do-not-use-c8eae9623b3b9f9cd7c168ca13540ddca9317050.tar.xz drakx-backup-do-not-use-c8eae9623b3b9f9cd7c168ca13540ddca9317050.zip | |
(install_grub2) add basic support for installing grub2
Diffstat (limited to 'perl-install')
| -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) = @_; |