Update gellyfish's e-mail.

[p5sagit/p5-mst-13.2.git] / Porting / checkURL.pl

diff --git a/Porting/checkURL.pl b/Porting/checkURL.pl
index 230121e..db55c49 100644 (file)
--- a/Porting/checkURL.pl
+++ b/Porting/checkURL.pl
@@ -15,7 +15,7 @@ my %dummy;
 
 @dummy{@dummy} = ();
 
-foreach my $file (<pod/*.pod README README.* INSTALL>) {
+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{$&}) {