X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/f6e5b55ae22f3fda6863e8a14e07bc8ca6664564..c4a1ac51f421e91ae21d35fcebad11259e90c74d:/SL/InstallationCheck.pm

diff --git a/SL/InstallationCheck.pm b/SL/InstallationCheck.pm
index 5f44cd2d4..3977bb469 100644
--- a/SL/InstallationCheck.pm
+++ b/SL/InstallationCheck.pm
@@ -13,6 +13,8 @@ use vars qw(@required_modules);
   { "name" => "Text::Iconv", "url" => "http://search.cpan.org/~mpiotr/" },
   { "name" => "Time::HiRes", "url" => "http://search.cpan.org/~jhi/" },
   { "name" => "YAML", "url" => "http://search.cpan.org/~ingy/" },
+  { "name" => "IO::Wrap", "url" => "http://search.cpan.org/~dskoll/IO-stringy-2.110/" },
+  { "name" => "Text::CSV_XS", "url" => "http://search.cpan.org/~hmbrand/Text-CSV_XS-0.29/" },
   );
 
 sub module_available {
@@ -26,12 +28,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;