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';
"\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
- $noecho \$(NOOP)
+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;
+}