diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-17 09:33:00 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-17 09:33:00 +0000 |
| commit | 903a5071ed082e8ae0ace3d711a8aa282dedd972 (patch) | |
| tree | b6c4225d06b8afb1ac3fa142e202a17cd11e5aee /pod | |
| parent | bbb28fc16653674c1010df493bda8c14422bb9ed (diff) | |
| download | perl-903a5071ed082e8ae0ace3d711a8aa282dedd972.tar.gz | |
Use .pm only if no .pod is present; fix typo in docs
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/buildtoc | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index 7a9657ae29..9ca5e920fd 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -34,6 +34,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")) { @@ -119,7 +124,7 @@ podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] ); =head1 AUTHOR - Larry Wall E<lt><F<lwall\@sems.com>E<gt>, with the help of oodles + Larry Wall E<lt>F<lwall\@sems.com>E<gt>, with the help of oodles of other folks. |