X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fbuildtoc;h=9ca5e920fdf9d2d33cf8e63d19c92e11c604bf26;hb=4d9142afa100a96f07b67cd4b087273df8c60543;hp=7a9657ae2949a6420bf7c93d3aa9265fcfbd2a1c;hpb=c07a80fdfe3926b5eb0585b674aa5d1f57b32ade;p=p5sagit%2Fp5-mst-13.2.git

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.