- mkpath($mandir, $opts{verbose}, 0777) unless $opts{notify}; # In File::Path
-
- my $modpods;
- if (ref $what) {
- $modpods = $what;
- }
- else {
- # Make a list of all the .pm and .pod files in the directory.
- File::Find::find({no_chdir=>1,
- wanted => sub {
- # $_ is $File::Find::name when using no_chdir
- if (-f $_ and /\.p(?:m|od)$/) {
- my $pod = $_;
- # Skip .pm files that have corresponding .pod files
- return if $pod =~ s/\.pm$/.pod/ && -f $pod;
- return if m!(?:^|/)t/!;
- s!^\Q$what\E/!!;
- return if $do_not_install{$_};
- return if is_duplicate_pod($File::Find::name);
- $modpods->{$_} = $File::Find::name;
- }
- }},
- $what);
- }