ext/List-Util/Makefile.PL

   1 use ExtUtils::MakeMaker;
   2
   3 WriteMakefile(
   4     VERSION_FROM    => "lib/List/Util.pm",
   5     NAME            => "List::Util",
   6     DEFINE          => "-DPERL_EXT",
   7 );
   8
   9 package MY;
  10
  11 # We go through the ListUtil.c trickery to foil platforms
  12 # that have the feature combination of
  13 # (1) static builds
  14 # (2) allowing only one object by the same name in the static library
  15 # (3) the object name matching being case-blind
  16 # This means that we can't have the top-level util.o
  17 # and the extension-level Util.o in the same build.
  18 # One such platform is the POSIX-BC BS2000 EBCDIC mainframe platform.
  19
  20 BEGIN {
  21     use Config;
  22     unless (defined $Config{usedl}) {
  23         eval <<'__EOMM__';
  24 sub xs_c {
  25     my($self) = shift;
  26     return '' unless $self->needs_linking();
  27 '
  28 ListUtil.c:     Util.xs
  29         $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) Util.xs > ListUtil.xsc && $(MV) ListUtil.xsc ListUtil.c
  30 ';
  31 }
  32
  33 sub xs_o {
  34     my($self) = shift;
  35     return '' unless $self->needs_linking();
  36 '
  37
  38 Util$(OBJ_EXT): ListUtil.c
  39         $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) ListUtil.c
  40         $(MV) ListUtil$(OBJ_EXT) Util$(OBJ_EXT)
  41 ';
  42 }
  43
  44 __EOMM__
  45     }
  46 }