From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 14 Sep 2011 10:34:47 +0000 (+0200)
Subject: broken_links warnings unterdrücken
X-Git-Tag: release-2.7.0beta1~293
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a0144a09218bddaedb0e26df6b8839cc00c641d8;p=kivitendo-erp.git

broken_links warnings unterdrücken
---

diff --git a/t/007broken_links.t b/t/007broken_links.t
index ee0021ef8..5ac03bca6 100644
--- a/t/007broken_links.t
+++ b/t/007broken_links.t
@@ -26,6 +26,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>; }