Revision a0144a09
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
t/007broken_links.t | ||
---|---|---|
26 | 26 |
}); |
27 | 27 |
|
28 | 28 |
find(sub { |
29 |
return unless -f $File::Find::name; |
|
29 | 30 |
open(FH, $File::Find::name) or return; |
30 | 31 |
my $text; |
31 | 32 |
{ local $/; $text = <FH>; } |
Auch abrufbar als: Unified diff
broken_links warnings unterdrücken