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