Skip to content

Commit

Permalink
Fix failing ppm.t in perl core
Browse files Browse the repository at this point in the history
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
xdg committed Feb 20, 2011
1 parent 786c1fc commit 1ed64bf
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions lib/Module/Build/Base.pm
Expand Up @@ -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 }
Expand All @@ -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]),''
Expand Down

0 comments on commit 1ed64bf

Please sign in to comment.