summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-07 11:35:06 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-07 11:35:06 +0000
commit4d1da3d243209e0bd6f571596038d6b1ea55ca2a (patch)
treeba6342930512e300d86e582bb88959271c88ebfb /perl-install
parent828f1cb5d26005dbcc25f07f8ca7b334ecc7b84f (diff)
downloaddrakx-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.pm6
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) = @_;