X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=t%2F007broken_links.t;h=93148f4d4e01949476f18f3755e444958c40a421;hb=357d134d265637fb37ed2cd47da2ce3ef44d015a;hp=ee0021ef814bfda4b81a0db4258dbb5c9c106bcf;hpb=e055700faea1906bea6c03184ba4516b57cac887;p=kivitendo-erp.git

diff --git a/t/007broken_links.t b/t/007broken_links.t
index ee0021ef8..93148f4d4 100644
--- a/t/007broken_links.t
+++ b/t/007broken_links.t
@@ -8,9 +8,13 @@
 
 use strict;
 use File::Find;
-use LWP::Simple;
-use Test::More tests => 1;
-use URI::Find;
+use Test::More;
+
+if (eval " use LWP::Simple; use URI::Find; 1 ") {
+  plan tests => 1;
+} else {
+  plan skip_all => "LWP::Simple or URI::Find not installed";
+}
 
 my @fails;
 
@@ -26,6 +30,7 @@ my $finder = URI::Find->new(sub {
 });
 
 find(sub {
+  return unless -f $File::Find::name;
   open(FH, $File::Find::name) or return;
   my $text;
   { local $/; $text = <FH>; }