Data::Dumper doesn't need ppport.h in core

From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <627715.37131.qm@web30212.mail.mud.yahoo.com>

p4raw-id: //depot/perl@30656

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index 4efc17a..1c1fb6d 100644 (file)
--- a/ext/Data/Dumper/Dumper.pm
+++ b/ext/Data/Dumper/Dumper.pm
@@ -9,7 +9,7 @@
 
 package Data::Dumper;
 
-$VERSION = '2.121_11';
+$VERSION = '2.121_12';
 
 #$| = 1;
 

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index b09a023..dff007b 100644 (file)
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -2,7 +2,9 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
-#include "ppport.h"
+#ifdef USE_PPPORT_H
+#  include "ppport.h"
+#endif
 
 #if PERL_VERSION < 6
 #  define DD_USE_OLD_ID_FORMAT

diff --git a/ext/Data/Dumper/Makefile.PL b/ext/Data/Dumper/Makefile.PL
index 12930c5..1548c75 100644 (file)
--- a/ext/Data/Dumper/Makefile.PL
+++ b/ext/Data/Dumper/Makefile.PL
@@ -8,4 +8,9 @@ WriteMakefile(
                             DIST_DEFAULT => 'all tardist',
                           },
        MAN3PODS        => {},
+        (
+            (grep { $_ eq 'PERL_CORE=1' } @ARGV)
+                ? ()
+                : ('DEFINE' => '-DUSE_PPPORT_H')
+        ),
 );

diff --git a/mkppport.lst b/mkppport.lst
index 58ce54e..7840f3c 100644 (file)
--- a/mkppport.lst
+++ b/mkppport.lst
@@ -6,7 +6,6 @@
 #
 
 ext/Cwd
-ext/Data/Dumper
 ext/Sys/Syslog
 ext/Time/HiRes
 ext/Win32API/File