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 | 4d1da3d243209e0bd6f571596038d6b1ea55ca2a (patch) | |
| tree | ba6342930512e300d86e582bb88959271c88ebfb /perl-install | |
| parent | 828f1cb5d26005dbcc25f07f8ca7b334ecc7b84f (diff) | |
| download | drakx-4d1da3d243209e0bd6f571596038d6b1ea55ca2a.tar drakx-4d1da3d243209e0bd6f571596038d6b1ea55ca2a.tar.gz drakx-4d1da3d243209e0bd6f571596038d6b1ea55ca2a.tar.bz2 drakx-4d1da3d243209e0bd6f571596038d6b1ea55ca2a.tar.xz drakx-4d1da3d243209e0bd6f571596038d6b1ea55ca2a.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) = @_; |