From 0bc62174577aa191a65ca59eccb32e176f9f7712 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 12 Jun 2007 15:26:58 +0000
Subject: [PATCH] =?utf8?q?In=20der=20K=C3=BCrze=20liegt=20die=20W=C3=BCrze?=
 =?utf8?q?.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/InstallationCheck.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/SL/InstallationCheck.pm b/SL/InstallationCheck.pm
index 5f44cd2d4..74d3c30a6 100644
--- a/SL/InstallationCheck.pm
+++ b/SL/InstallationCheck.pm
@@ -26,12 +26,7 @@ sub module_available {
 }
 
 sub test_all_modules {
-  my @missing_modules;
-
-  map({ push(@missing_modules, $_) unless (module_available($_->{"name"})); }
-      @required_modules);
-
-  return @missing_modules;
+  return grep { !module_available($_->{name}) } @required_modules;
 }
 
 1;
-- 
2.20.1