From ad49c99bcbf96ceba99541e238b4682728fd7bb4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 26 Feb 2013 06:36:01 +0000
Subject: (read_grub2) add basic support for reading back grub2 config

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

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 9e8a7d66a..68df8acd3 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -235,6 +235,9 @@ sub read {
 
 sub read_grub2 {
     my %bootloader = getVarsFromSh("$::prefix/boot/grub2/drakboot.conf");
+    $bootloader{entries} = [ map { if_(/menuentry\s+['"]([^']+)["']/, { label => $1 }) }  cat_("$::prefix/boot/grub2/grub.cfg") ];
+    $bootloader{method} = 'grub2';
+    \%bootloader;
 }
 
 sub read_grub {
-- 
cgit v1.2.1