Upgrade to Time-HiRes-1.85

[p5sagit/p5-mst-13.2.git] / ext / List / Util / Makefile.PL

diff --git a/ext/List/Util/Makefile.PL b/ext/List/Util/Makefile.PL
index 079437b..48dccdb 100644 (file)
--- a/ext/List/Util/Makefile.PL
+++ b/ext/List/Util/Makefile.PL
@@ -2,6 +2,46 @@ use ExtUtils::MakeMaker;
 
 WriteMakefile(
     VERSION_FROM    => "lib/List/Util.pm",
+    MAN3PODS        => {},  # Pods will be built by installman.
     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__
+    }
+}