From 59dfe929349aa4e9f138cd2e311fda9dad146b5a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 18 Sep 2017 15:08:33 +0200
Subject: (read_grub2) handle several levels of submenus

needed anyway after last commit
---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 1e629345e..42f4f9586 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -327,7 +327,7 @@ sub read_grub2() {
 	    }
 	} elsif (/initrd\s+(\S+)/ || /module\s+(\S+initrd\S+)\s+(.*)?/) {
 	    $entry->{initrd} = $1;
-	} elsif (/^submenu\s+['"]([^']+)["']/) {
+	} elsif (/submenu\s+['"]([^']+)["']/) {
 	    push @menus, $1;
 	} elsif (/^\s+}/) {
 	    if ($entry) {
-- 
cgit v1.2.1