From 5583c3f9e8de83b614f0707c91ee40227ceec604 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 19 Nov 2018 23:27:01 +0100
Subject: ignore GPT disk w/o BIOS boot part (mga#23844)

in automatic mode, we would potentially suggest a wrong disk if first
disc has a GPT layout _without_ a BIOS boot partition.
rationale:
GPT disks w/o a BIOS boot partition do not have free space for grub2 to embed
---
 perl-install/bootloader.pm | 2 +-
 perl-install/install/NEWS  | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 9b0c19ed8..e811c605b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1250,7 +1250,7 @@ sub suggest {
     if ($root_part->{is_removable}) {
         $mbr = fs::get::part2hd($root_part, $all_hds);
     } else {
-        $mbr = find { !$_->{is_removable} } @{$all_hds->{hds}};
+        $mbr = find { !$_->{is_removable} } allowed_boot_disks($all_hds);
     }
 
     my ($onmbr, $unsafe) = $bootloader->{crushMbr} ? (1, 0) : suggest_onmbr($mbr);
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 18d4c09c4..24fa6b625 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- bootloader: ignore GPT disk w/o BIOS boot part (mga#23844) in automatic mode
 - recognize new kernel 4.1[89] drivers
 
 Version 18.4 - 4 Nov 2018
-- 
cgit v1.2.1