From 83caf003d01e1c8159b4923de12fa12dbd2ecd0a Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 28 Sep 2005 17:38:30 +0000 Subject: perl_checker fixes --- kernel/modules.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'kernel/modules.pl') diff --git a/kernel/modules.pl b/kernel/modules.pl index a6ad02fb3..26194a69e 100644 --- a/kernel/modules.pl +++ b/kernel/modules.pl @@ -130,7 +130,7 @@ sub remove_unneeded_modules { my @all = list_modules::all_modules(); my @all_with_deps = map { dependencies_closure($_) } @all; - my %wanted_modules = map {; "$_.$ext" => 1 } @all_with_deps; + my %wanted_modules = map { "$_.$ext" => 1 } @all_with_deps; foreach (all("all.kernels/$kern_ver/modules")) { $wanted_modules{$_} or unlink "all.kernels/$kern_ver/modules/$_"; } @@ -208,7 +208,7 @@ sub make_modules_description { sub get_main_modules() { my $base = dirname($0); my $main = chomp_(cat_("$base/RPMS/.main")); - `tar tvf $base/all.kernels/$main/all_modules.tar | awk '{ print \$6 }'` + `tar tvf $base/all.kernels/$main/all_modules.tar | awk '{ print \$6 }'`; } sub pci_modules4stage1 { -- cgit v1.2.1