| --- a/cpan/podlators/Makefile.PL |
| +++ b/cpan/podlators/Makefile.PL |
| @@ -18,6 +18,19 @@ use Config; |
| use ExtUtils::MakeMaker; |
| use File::Spec; |
| |
| +foreach (glob('scripts/pod*.PL')) { |
| + # The various pod*.PL extractors change directory. Doing that with relative |
| + # paths in @INC breaks. It seems the lesser of two evils to copy (to avoid) |
| + # the chdir doing anything, than to attempt to convert lib paths to |
| + # absolute, and potentially run into problems with quoting special |
| + # characters in the path to our build dir (such as spaces) |
| + require File::Copy; |
| + |
| + my $temp = $_; |
| + $temp =~ s!scripts/!!; |
| + File::Copy::copy($_, $temp) or die "Can't copy $temp to $_: $!"; |
| +} |
| + |
| # Generate full paths for scripts distributed in the bin directory. Appends |
| # the .com extension to scripts on VMS, unless they already have the .PL |
| # extension. |
| @@ -28,7 +41,7 @@ use File::Spec; |
| # (Scalar) Space-separated relative paths from top of distribution |
| sub scripts { |
| my (@scripts) = @_; |
| - my @paths = map { File::Spec->catfile('scripts', $_) } @scripts; |
| + my @paths = @scripts; |
| if ($^O eq 'VMS') { |
| @paths = map { m{ [.] PL \z }xms ? $_ : $_ . '.com' } @paths; |
| } |
| @@ -77,8 +90,8 @@ my %metadata = ( |
| |
| # Override the files that generate section 1 man pages. |
| MAN1PODS => { |
| - man1pod('scripts', 'pod2man.PL'), |
| - man1pod('scripts', 'pod2text.PL'), |
| + man1pod('.', 'pod2man.PL'), |
| + man1pod('.', 'pod2text.PL'), |
| |
| # Perl core uses a separate copy in the top-level pod directory. |
| ($ENV{PERL_CORE} ? () : man1pod('pod', 'perlpodstyle.pod')), |