diff options
Diffstat (limited to 'ext/B/Makefile.PL')
-rw-r--r-- | ext/B/Makefile.PL | 31 |
1 files changed, 24 insertions, 7 deletions
diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL index d59e9d7720..4a1e425ac1 100644 --- a/ext/B/Makefile.PL +++ b/ext/B/Makefile.PL @@ -5,6 +5,7 @@ use File::Spec; my $e = $Config{'exe_ext'}; my $o = $Config{'obj_ext'}; my $exeout_flag = '-o '; +my $core = grep { $_ eq 'PERL_CORE=1' } @ARGV; if ($^O eq 'MSWin32') { if ($Config{'cc'} =~ /^cl/i) { $exeout_flag = '-Fe'; @@ -30,19 +31,35 @@ sub post_constants { "\nLIBS = $Config::Config{libs}\n" } -sub upupfile { - File::Spec->catfile(File::Spec->updir, - File::Spec->updir, $_[0]); +sub headerfilefile { + push @makefileopts, MAN3PODS => {}; +} + +sub headerpath { + if ($core) { + return File::Spec->catdir(File::Spec->updir, + File::Spec->updir); + } else { + return File::Spec->catdir($Config::Config{archlibexp}, "CORE"); + } } sub MY::postamble { - my $op_h = upupfile('op.h'); - my $cop_h = upupfile('cop.h'); + my $headerpath = headerpath(); + my @headers = map { File::Spec->catfile($headerpath, $_) } qw(op.h cop.h); my $noecho = shift->{NOECHO}; + " B\$(OBJ_EXT) : defsubs.h -defsubs.h :: $op_h $cop_h defsubs_h.PL - \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) defsubs_h.PL defsubs.h +defsubs.h :: @headers defsubs_h.PL + \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) defsubs_h.PL defsubs.h $headerpath " } + +sub MY::processPL { + my $text = shift->SUPER::processPL(@_); + # Append our extra parameter + $text =~ s/^\t.*defsubs_h\.PL.*/$& . ' ' . headerpath()/me; + $text; +} |