X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FInstallationCheck.pm;h=74d3c30a66d8e56fca697123f3f0748eb22e8fe0;hb=0bc62174577aa191a65ca59eccb32e176f9f7712;hp=fc8560bd08329b76aab28c2f2d8d3d3901315874;hpb=62a8aa81ec93edf284b3ffcc065120b3fe303fb5;p=kivitendo-erp.git

diff --git a/SL/InstallationCheck.pm b/SL/InstallationCheck.pm
index fc8560bd0..74d3c30a6 100644
--- a/SL/InstallationCheck.pm
+++ b/SL/InstallationCheck.pm
@@ -11,7 +11,8 @@ use vars qw(@required_modules);
   { "name" => "HTML::Template", "url" => "http://search.cpan.org/~samtregar/" },
   { "name" => "Archive::Zip", "url" => "http://search.cpan.org/~adamk/" },
   { "name" => "Text::Iconv", "url" => "http://search.cpan.org/~mpiotr/" },
-  { "name" => "Klaus", "url" => "http://dum.my/" },
+  { "name" => "Time::HiRes", "url" => "http://search.cpan.org/~jhi/" },
+  { "name" => "YAML", "url" => "http://search.cpan.org/~ingy/" },
   );
 
 sub module_available {
@@ -25,12 +26,7 @@ sub module_available {
 }
 
 sub test_all_modules {
-  my @missing_modules;
-
-  map({ push(@missing_modules, $_) unless (module_available($_)); }
-      @required_modules);
-
-  return @missing_modules;
+  return grep { !module_available($_->{name}) } @required_modules;
 }
 
 1;