No pod in internal Net::FTP classes.

p4raw-id: //depot/perl@13003

diff --git a/pod/buildtoc.PL b/pod/buildtoc.PL
index bb6d0d3..313a3ef 100644 (file)
--- a/pod/buildtoc.PL
+++ b/pod/buildtoc.PL
@@ -288,6 +288,7 @@ sub getpods {
        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")) {