X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fbuildtoc;h=daf26c1c57c74996f3b99f80867f4ea089d5c7a1;hb=1fd81fbbe87d964ad1f7dbdce41e36f3781dcf82;hp=77ddcd0eadf49d96e0d9f0e58846d6bf1d6efaf9;hpb=cb1a09d0194fed9b905df7b04a4bc031d354609d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/buildtoc b/pod/buildtoc
index 77ddcd0..daf26c1 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -2,11 +2,13 @@ use File::Find;
 use Cwd;
 
 @pods = qw{
-	    perl perldata perlsyn perlop perlre perlrun perlfunc perlvar
-	    perlsub perlmod perlref perldsc perllol perlobj perltie
-	    perlbot perldebug perldiag perlform perlipc perlsec perltrap
-	    perlstyle perlxs perlxstut perlguts perlcall perlembed perlpod
-	    perlbook 
+	    perl
+	    perldata perlsyn perlop perlre perlrun perlfunc perlvar
+	        perlsub perlmod perlform
+	    perlref perldsc perllol perlobj perltie perlbot perlipc
+	    perldebug perldiag perlsec perltrap perlstyle
+	    perlpod perlbook
+	    perlembed perlapio perlxs perlxstut perlguts perlcall
 	};
 for (@pods) { s/$/.pod/ } 
 
@@ -34,6 +36,11 @@ podset(@pods);
 find \&getpods => qw(../lib ../ext);
 sub getpods {
     if (/\.p(od|m)$/) { 
+	my $tmp;
+	# Skip .pm files that have corresponding .pod files, and Functions.pm.
+	return if (($tmp = $_) =~ s/\.pm$/.pod/ && -f $tmp);
+	return if ($_ eq '../lib/Pod/Functions.pm');####Used only by pod itself
+
 	my $file = $File::Find::name;
 	die "tut $name" if $file =~ /TUT/;
 	unless (open (F, "< $_\0")) {
@@ -95,7 +102,7 @@ podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
 
 	=head1 AUXILIARY DOCUMENTATION
 
-	Here should be listed all the extra program's docs, but they
+	Here should be listed all the extra programs' docs, but they
 	don't all have man pages yet:
 
 	=item a2p
@@ -119,7 +126,7 @@ podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
 
 	=head1 AUTHOR
 
-	Larry Wall E<lt><F<lwall\@netlabs.com>E<gt>, with the help of oodles 
+	Larry Wall E<lt>F<larry\@wall.org>E<gt>, with the help of oodles 
 	of other folks.