summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/bootloader.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index fd2f85169..9b0c19ed8 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -789,13 +789,18 @@ Returns list of places where we can install the bootloader when not in UEFI mode
=cut
+sub allowed_boot_disks {
+ my ($all_hds) = @_;
+ # GPT disks w/o a BIOS boot partition do not have free space for grub2 to embed:
+ grep { c::get_disk_type($_->{file}) ne 'gpt' ||
+ any { isBIOS_GRUB($_) } map { partition_table::get_normal_parts($_) } $_;
+ } @{$all_hds->{hds}};
+}
+
sub allowed_boot_parts {
my ($bootloader, $all_hds) = @_;
(
- ( # GPT disks w/o a BIOS boot partition do not have free space for grub2 to embed:
- grep { c::get_disk_type($_->{file}) ne 'gpt' ||
- any { isBIOS_GRUB($_) } map { partition_table::get_normal_parts($_) } $_;
- } @{$all_hds->{hds}}), # MBR
+ allowed_boot_disks($all_hds), # MBR
if_($bootloader->{method} =~ /lilo/,
grep { $_->{level} eq '1' } @{$all_hds->{raids}}