From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 17 Mar 1996 09:33:00 +0000 (+0000)
Subject: Use .pm only if no .pod is present; fix typo in docs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=903a5071ed082e8ae0ace3d711a8aa282dedd972;p=p5sagit%2Fp5-mst-13.2.git

Use .pm only if no .pod is present; fix typo in docs
---

diff --git a/pod/buildtoc b/pod/buildtoc
index 7a9657a..9ca5e92 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.