diff options
| author | Abigail <abigail@abigail.be> | 2001-12-18 20:03:22 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-19 01:11:45 +0000 |
| commit | 058eaa425d59becab3e9c03e8b8291dc8707c468 (patch) | |
| tree | d2d6e58a359a9ff85761d38190ff8aa625b522fd | |
| parent | 8f1b27e4d1aefcdfdc600b3d0221fe6bd8248516 (diff) | |
| download | perl-058eaa425d59becab3e9c03e8b8291dc8707c468.tar.gz | |
Porting/checkURL.pl
Message-ID: <20011218180322.8278.qmail@foad.org>
p4raw-id: //depot/perl@13785
| -rw-r--r-- | Porting/checkURL.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/checkURL.pl b/Porting/checkURL.pl index 230121ead7..db55c49536 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{$&}) { |