Revision a0144a09
Von Sven Schöling vor mehr als 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