On Sat, Jan 30, 2016 at 6:37 PM, Russ Allbery <r...@cpan.org> wrote:
> "Craig A. Berry" <craig.a.be...@gmail.com> writes:
>
>> But it looks like I entirely missed the pod/ directory in your
>> distribution,

>> So bear with me a bit longer while I get this sorted out.
>
> I suspect that renaming perlpodstyle back to perlpodstyle.pod will help
> considerably.  I removed the *.pod suffix to work around problems with
> Module::Build, and it shouldn't be necessary now that the package is only
> using ExtUtils::MakeMaker again.

The missing .pod extension did confuse me.  Whether it confused the
tools or I did something else wrong I'm not sure.  But I think / hope
I have it sorted out with:

http://perl5.git.perl.org/perl.git/commitdiff/259f5e0bbc6277b397458cb905d37baaa68aaada

There was a comment in Porting/Maintainers.pl, the file we use to keep
track of dual-life modules, that perlpodstyle is special and lives in
the top-level pod/ directory in core. I don't know why it's there or
whether it really needs to be there, but I left it for now.  It will
get manified with all of the other .pod files in that directory.  And
it was already up-to-date.

So you have two differences from core now, one being that
pod/perlpodstyle  upstream maps to pod/perlpodstyle.pod in core (*not*
cpan/podlators/pod/...), and the other being the minor tweaks to
Makefile.PL, that now look like the following.  You can probably just
apply this with -p2.

--- 
/private/var/folders/gb/9qzz8hdm8xjf6c00r6_l9z000000gp/T/M7vJQyIBxQ/untarred/podlators-4.05/Makefile.PL
2016-01-16 16:17:56.000000000 -0600
+++ cpan/podlators/Makefile.PL 2016-01-30 18:29:35.000000000 -0600
@@ -26,7 +26,9 @@
 #          (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);
 }

@@ -74,7 +76,8 @@
     MAN1PODS => {
         man1pod('scripts', 'pod2man'),
         man1pod('scripts', 'pod2text'),
-        man1pod('pod',     'perlpodstyle'),
+        # This one lives in the top-level pod/ directory in core
+        ($ENV{PERL_CORE} ? () : man1pod('pod',     'perlpodstyle')),
     },

     # Clean some additional files.
[end]

Reply via email to