blob: 4a1e425ac1bf9ec76a82385fda38a54553649ef7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
use ExtUtils::MakeMaker;
use Config;
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';
}
elsif ($Config{'cc'} =~ /^bcc/i) {
$exeout_flag = '-e';
}
}
WriteMakefile(
NAME => "B",
VERSION_FROM => "B.pm",
PL_FILES => { 'defsubs_h.PL' => 'defsubs.h' },
MAN3PODS => {},
clean => {
FILES => "perl$e *$o B.c defsubs.h *~"
}
);
package MY;
sub post_constants {
"\nLIBS = $Config::Config{libs}\n"
}
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 $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 :: @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;
}
|
