summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2018-11-19 23:27:01 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2018-11-19 23:33:58 +0100
commit5583c3f9e8de83b614f0707c91ee40227ceec604 (patch)
tree68cdd16d211e270d5e619d1981042f8232462394 /perl-install/bootloader.pm
parent6a7b68fb08c2937e111777b720bcbc1a97b01984 (diff)
downloaddrakx-5583c3f9e8de83b614f0707c91ee40227ceec604.tar
drakx-5583c3f9e8de83b614f0707c91ee40227ceec604.tar.gz
drakx-5583c3f9e8de83b614f0707c91ee40227ceec604.tar.bz2
drakx-5583c3f9e8de83b614f0707c91ee40227ceec604.tar.xz
drakx-5583c3f9e8de83b614f0707c91ee40227ceec604.zip
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
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm2
1 files changed, 1 insertions, 1 deletions
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);