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/bootloader.pm | 5 ++---
 perl-install/common.pm     | 4 ++--
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 3204aa194..5d6714b0e 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -150,8 +150,7 @@ sub kernel_str2initrd_short {
 	basename2initrd_basename(kernel_str2short_name($kernel)) . '.img';
     }
 }
-sub kernel_str2liblinux_short {
-    my ($kernel) = @_;
+sub kernel_str2liblinux_short() {
     $liblinux_path;
 }
 
@@ -1055,7 +1054,7 @@ sub add_kernel {
 	}
 
 	if ($v->{liblinux}) {
-	    $v->{liblinux} = kernel_str2liblinux_short($kernel_str);
+	    $v->{liblinux} = kernel_str2liblinux_short();
 	    _do_the_symlink($bootloader, $v->{liblinux}, basename($liblinux_long));
 	}
     }
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