Change 13785 by jhi@alpha on 2001/12/19 01:11:45
Subject: Porting/checkURL.pl
From: [EMAIL PROTECTED]
Date: Tue, 18 Dec 2001 19:03:22 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/Porting/checkURL.pl#3 edit
Differences ...
==== //depot/perl/Porting/checkURL.pl#3 (text) ====
Index: perl/Porting/checkURL.pl
--- perl/Porting/checkURL.pl.~1~ Tue Dec 18 18:15:05 2001
+++ perl/Porting/checkURL.pl Tue Dec 18 18:15:05 2001
@@ -15,7 +15,7 @@
@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{$&}) {
End of Patch.
