From 55bc7ba0df2271059a114c6621c429ff96c44149 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 24 Mar 2020 10:47:46 +0100
Subject: perl_checker cleanups + kill unused variable

---
 perl-install/common.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 265f7365c..72ae44d6e 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -735,7 +735,7 @@ Returns the short name of the UEFI machine type supported by the kernel stub loa
 sub kernel_uefi_type() {
     my $arch = arch();
     if ($arch eq 'aarch64') {
-	return 'aa64'
+	return 'aa64';
     }
     $arch =~ /i.86/ ? 'ia32' : 'x64';
 }
@@ -748,7 +748,7 @@ Returns the UEFI machine type short name
 
 sub uefi_type() {
     if (arch() eq 'aarch64') {
-	return 'aa64'
+	return 'aa64';
     }
     if (-e '/sys/firmware/efi/fw_platform_size') {
 	cat_('/sys/firmware/efi/fw_platform_size') =~ /32/ ? 'ia32' : 'x64';
-- 
cgit v1.2.1