expanded flock() docs

[p5sagit/p5-mst-13.2.git] / pod / buildtoc

diff --git a/pod/buildtoc b/pod/buildtoc
index 77ddcd0..daf26c1 100644 (file)
--- 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.