my $state = get_pod_metadata(0, sub { warn @_ if @_ }, 'pod/perltoc.pod');
# Find all the modules
+# manpages not to be installed
+my %do_not_install = map { ($_ => 1) }
+ qw(Pod::Functions XS::APItest XS::Typemap);
+
my %done;
find({no_chdir => 1,
wanted => sub {
if (/\.p(od|m)$/) {
- return if m!/Pod/Functions.pm\z!; # Used only by pod itself
return if m!(?:^|/)t/!;
return if m!lib/Net/FTP/.+\.pm!; # Hi, Graham! :-)
- return if m!XS/(?:APItest|Typemap)!;
- return if s!pm\z!pod! && -e $_;
+ return if s!\.pm\z!.pod! && -e $_;
s!\.pod\z!!;
s!\Alib/!!;
s!/!::!g;
my_die("Duplicate files for $_, '$done{$_}' and '$File::Find::name'")
if exists $done{$_};
-
$done{$_} = $File::Find::name;
+
+ return if $do_not_install{$_};
+ return if is_duplicate_pod($File::Find::name);
+
$Found{/\A[a-z]/ ? 'PRAGMA' : 'MODULE'}{$_} = $File::Find::name;
}
}}, 'lib');
EOPOD2B
foreach my $name (sort keys %{$Found{$type}}) {
- next if is_duplicate_pod($Found{$type}{$name});
$roffitall .= " \$libdir/$name.3 \\\n";
podset($name, $Found{$type}{$name});
}