From: Abigail <abigail@abigail.be>
Date: Tue, 18 Dec 2001 19:03:22 +0000 (+0100)
Subject: Porting/checkURL.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=058eaa425d59becab3e9c03e8b8291dc8707c468;p=p5sagit%2Fp5-mst-13.2.git

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