broken_links warnings unterdrücken

diff --git a/t/007broken_links.t b/t/007broken_links.t
index ee0021ef814bfda4b81a0db4258dbb5c9c106bcf..5ac03bca6d0b6d65a493266f5fe9d72f6d98c13e 100644 (file)
--- a/t/007broken_links.t
+++ b/t/007broken_links.t
@@ -26,6 +26,7 @@ my $finder = URI::Find->new(sub {
 });
 
 find(sub {
 });
 
 find(sub {

+  return unless -f $File::Find::name;

   open(FH, $File::Find::name) or return;
   my $text;
   { local $/; $text = <FH>; }
   open(FH, $File::Find::name) or return;
   my $text;
   { local $/; $text = <FH>; }