Change 13003 by jhi@alpha on 2001/11/14 21:17:02
No pod in internal Net::FTP classes.
Affected files ...
.... //depot/perl/pod/buildtoc.PL#26 edit
Differences ...
==== //depot/perl/pod/buildtoc.PL#26 (text) ====
Index: perl/pod/buildtoc.PL
--- perl/pod/buildtoc.PL.~1~ Wed Nov 14 14:30:05 2001
+++ perl/pod/buildtoc.PL Wed Nov 14 14:30:05 2001
@@ -288,6 +288,7 @@
my $file = $File::Find::name;
return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
return if $file =~ m!lib/Attribute/Handlers/demo/!;
+ return if $file =~ m!lib/Net/FTP/.+\.pm!; # Hi, Graham! :-)
die "tut $name" if $file =~ /TUT/;
unless (open (F, "< $_\0")) {
End of Patch.
