From 4d1da3d243209e0bd6f571596038d6b1ea55ca2a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 7 Dec 2012 11:35:06 +0000
Subject: (install_grub2) add basic support for installing grub2

---
 perl-install/bootloader.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install')

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) = @_;
 
-- 
cgit v1.2.1