From 8bdfc6a22b4c90abf6dce4b1fc98fc0a7a1f1843 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 29 Sep 2005 08:31:43 +0000
Subject: the perl_checker compliant way

---
 kernel/modules.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/modules.pl b/kernel/modules.pl
index a00bb0544..041808475 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/$_";	
     }
-- 
cgit v1.2.1