diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 474d34c21..265f7365c 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -733,8 +733,11 @@ Returns the short name of the UEFI machine type supported by the kernel stub loa =cut sub kernel_uefi_type() { - # No support for ARM yet - arch() =~ /i.86/ ? 'ia32' : 'x64'; + my $arch = arch(); + if ($arch eq 'aarch64') { + return 'aa64' + } + $arch =~ /i.86/ ? 'ia32' : 'x64'; } =item uefi_type() @@ -744,8 +747,10 @@ Returns the UEFI machine type short name =cut sub uefi_type() { + if (arch() eq 'aarch64') { + return 'aa64' + } if (-e '/sys/firmware/efi/fw_platform_size') { - # No support for ARM yet cat_('/sys/firmware/efi/fw_platform_size') =~ /32/ ? 'ia32' : 'x64'; } else { 'none'; |