projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gl::form_footer auf template umgeschrieben.
[kivitendo-erp.git]
/
t
/
007broken_links.t
diff --git
a/t/007broken_links.t
b/t/007broken_links.t
index
f0162eb
..
5ac03bc
100644
(file)
--- a/
t/007broken_links.t
+++ b/
t/007broken_links.t
@@
-1,5
+1,11
@@
#!/usr/bin/perl
#!/usr/bin/perl
+# adapted from Michael Stevens' test script posted in p5p
+# in the thread "broken links in blead" from 01/19/2011
+#
+# caveats: wikipedia seems to have crawler protection and
+# will give 403 forbidden unless the user agent is faked.
+
use strict;
use File::Find;
use LWP::Simple;
use strict;
use File::Find;
use LWP::Simple;
@@
-20,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>; }