Porting/checkURL.pl

Message-ID: <20011218180322.8278.qmail@foad.org>

p4raw-id: //depot/perl@13785

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{$&}) {