Re: podlators 4.05 released
[email protected] ("Craig A. Berry") Sat, 30 Jan 2016 14:27:05 -0600
| Newsgroups | perl.pod-people |
|---|---|
| Message-ID | <CA+vYcVy+PE=9UguuBiP4cavGW=-+PTX1_Prz9iLOf95dmZZQDQ@mail.gmail.com> |
On Sat, Jan 16, 2016 at 4:36 PM, Russ Allbery <[email protected]> wrote: > I'm pleased to announce release 4.05 of podlators. Thanks, Russ. I've managed to integrate this into core: <http://perl5.git.perl.org/perl.git/commitdiff/d42e1eb74e834d1cf3ac4b5c9bd3527c3d5da67b> The only thing different now between core and upstream is the Makefile.PL. I've attached a patch to make it the same upstream (just two little nits needed for core). Hopefully with so few differences now, future integrations will be easy (this one was anything but!).
podlators_core_makefile_pl.patch
(application/octet-stream, 877 B)
--- Makefile.PL 2016-01-16 16:17:56.000000000 -0600
+++ ../../perlrep/perl/cpan/podlators/Makefile.PL 2016-01-30 12:42:17.000000000 -0600
@@ -26,7 +26,9 @@ 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 $script_ext = $^O eq 'VMS' ? '.com' : '';
+ my @paths = map { $_ .= $script_ext unless $_ =~ m/\.PL$/i;
+ File::Spec->catfile('scripts', $_) } @scripts;
return wantarray ? @paths : join(q{ }, @paths);
}
@@ -127,6 +129,8 @@ for my $key (keys(%supported)) {
}
}
+delete $metadata{MAN1PODS} if $ENV{PERL_CORE};
+
# Generate the actual Makefile. Pick an arbitrary module to pull the version
# from, since they should all have the same version.
WriteMakefile(%metadata);