summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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 a9bb1e73d..7e956cf87 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -837,7 +837,7 @@ in UEFI mode, grub2 automatically look for the ESP).
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' ||
+ grep { $_->{pt_table_type} ne 'gpt' ||
any { isBIOS_GRUB($_) } map { partition_table::get_normal_parts($_) } $_;
} @{$all_hds->{hds}};
}