From b61e311a78ee2eccb1ff7b0d08000a38b8b9f2d8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 10 Aug 2005 04:16:46 +0000 Subject: be a little safer and shorter --- perl-install/do_pkgs.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/do_pkgs.pm') diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm index f155a5c84..cd0c4b40a 100644 --- a/perl-install/do_pkgs.pm +++ b/perl-install/do_pkgs.pm @@ -68,8 +68,7 @@ sub check_kernel_module_packages { my ($do, $base_name, $o_ext_name) = @_; require bootloader; - my ($short_name) = $base_name =~ /^(.*)-kernel$/; - my @rpms = $do->are_available("dkms-$short_name", + my @rpms = $do->are_available(if_($base_name =~ /^(.*)-kernel$/, "dkms-$1"), map { $base_name . '-' . bootloader::vmlinuz2version($_); } bootloader::installed_vmlinuz()); -- cgit v1.2.1