From 55bc7ba0df2271059a114c6621c429ff96c44149 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 24 Mar 2020 10:47:46 +0100 Subject: perl_checker cleanups + kill unused variable --- perl-install/bootloader.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/bootloader.pm') 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)); } } -- cgit v1.2.1