summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 227417dd5..0e493ef6f 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -222,7 +222,7 @@ sub get_normal_parts_and_holes {
sub _default_type {
my ($hd) = @_;
- arch() =~ /ia64/ ? 'gpt' :
+ is_uefi() ? 'gpt' :
$hd->{totalsectors} > 4 * 1024 * 1024 * 2048 ? 'lvm' : "dos"; #- default to LVM on full disk when >4TB
}
@@ -248,7 +248,7 @@ sub read_primary {
#- it can be safely considered that the first sector is used to probe the partition table
#- but other sectors (typically for extended partition ones) have to match this type!
my @parttype = (
- if_(arch() =~ /^ia64/, 'gpt'),
+ if_( is_uefi(), 'gpt'),
# gpt must be tried before dos as it presents a fake compatibility mbr
('gpt', 'lvm', 'dmcrypt', 'dos', 'bsd', 'sun', 'mac'),
);