This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Porting/checkURL.pl
authorAbigail <abigail@abigail.be>
Tue, 18 Dec 2001 19:03:22 +0000 (20:03 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 19 Dec 2001 01:11:45 +0000 (01:11 +0000)
Message-ID: <20011218180322.8278.qmail@foad.org>

p4raw-id: //depot/perl@13785

Porting/checkURL.pl

index 230121e..db55c49 100644 (file)
@@ -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{$&}) {