diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 13 |
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}} |