X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2FcheckURL.pl;h=db55c4953661d5a81903dcaec598c0aa1047b2f5;hb=3da9a137807e4f1acaf9cb3024a6cc5fbd119b9f;hp=230121ead780fa5ea1ad432d76c27bca5717e196;hpb=0d6d723397915f15904338d75c50e8db0ddae953;p=p5sagit%2Fp5-mst-13.2.git diff --git a/Porting/checkURL.pl b/Porting/checkURL.pl index 230121e..db55c49 100644 --- a/Porting/checkURL.pl +++ b/Porting/checkURL.pl @@ -15,7 +15,7 @@ my %dummy; @dummy{@dummy} = (); -foreach my $file () { +foreach my $file (<*/*.pod */*/*.pod */*/*/*.pod README README.* INSTALL>) { open my $fh => $file or die "Failed to open $file: $!\n"; while (<$fh>) { if (m{(?:http|ftp)://(?:(?!\w<)[-\w~?@=.])+} && !exists $dummy{$&}) {