blob: 9bc1c5adc1f192ec8221491779a81402ddd027c0 (
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
|
use ExtUtils::MakeMaker;
WriteMakefile(
VERSION_FROM => "lib/List/Util.pm",
NAME => "List::Util",
DEFINE => "-DPERL_EXT",
);
package MY;
# We go through the ListUtil.c trickery to foil platforms
# that have the feature combination of
# (1) static builds
# (2) allowing only one object by the same name in the static library
# (3) the object name matching being case-blind
# This means that we can't have the top-level util.o
# and the extension-level Util.o in the same build.
# One such platform is the POSIX-BC BS2000 EBCDIC mainframe platform.
BEGIN {
use Config;
unless (defined $Config{usedl}) {
eval <<'__EOMM__';
sub xs_c {
my($self) = shift;
return '' unless $self->needs_linking();
'
ListUtil.c: Util.xs
$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) Util.xs > ListUtil.xsc && $(MV) ListUtil.xsc ListUtil.c
';
}
sub xs_o {
my($self) = shift;
return '' unless $self->needs_linking();
'
Util$(OBJ_EXT): ListUtil.c
$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) ListUtil.c
$(MV) ListUtil$(OBJ_EXT) Util$(OBJ_EXT)
';
}
__EOMM__
}
}
|
