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")) {
=head1 AUTHOR
- Larry Wall E<lt><F<lwall\@netlabs.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.