Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix failing ppm.t in perl core

Pod::Html fails when searching at the -Dprefix path for pod, which
usually doesn't exist while perl is being built.  This patch redirects
things the PERL_CORE path.
  • Loading branch information...
commit 1ed64bf637134733500042b747da97d833ab213e 1 parent 786c1fc
@dagolden dagolden authored
Showing with 6 additions and 2 deletions.
  1. +6 −2 lib/Module/Build/Base.pm
View
8 lib/Module/Build/Base.pm
@@ -3346,7 +3346,9 @@ sub htmlify_pods {
my @rootdirs = ($type eq 'bin') ? qw(bin) :
$self->installdirs eq 'core' ? qw(lib) : qw(site lib);
- my $podroot = $self->original_prefix('core');
+ my $podroot = $ENV{PERL_CORE}
+ ? File::Basename::dirname($ENV{PERL_CORE})
+ : $self->original_prefix('core');
my $htmlroot = $self->install_sets('core')->{libhtml};
my @podpath = (map { File::Spec->abs2rel($_ ,$podroot) } grep { -d }
@@ -3355,7 +3357,9 @@ sub htmlify_pods {
$self->install_sets('site', 'lib'), # site/lib
) ), File::Spec->rel2abs($self->blib);
- my $podpath = join(":", map { tr,:\\,|/,; $_ } @podpath);
+ my $podpath = $ENV{PERL_CORE}
+ ? File::Spec->catdir($podroot, 'lib')
+ : join(":", map { tr,:\\,|/,; $_ } @podpath);
my $blibdir = join('/', File::Spec->splitdir(
(File::Spec->splitpath(File::Spec->rel2abs($htmldir),1))[1]),''
Please sign in to comment.
Something went wrong with that request. Please try again.