... and the rest; was RE: unnecessary define

From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093A08@exchsvr2.npl.ad.local>
Date: Thu, 24 Jan 2008 13:28:33 -0000

p4raw-id: //depot/perl@33064

diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index 35c5b98..469ed22 100644 (file)
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -466,10 +466,6 @@ prof_mark(pTHX_ opcode ptype)
     }
 }
 
-#ifdef PL_NEEDED
-#  define defstash PL_defstash
-#endif
-
 /* Counts overhead of prof_mark and extra XS call. */
 static void
 test_time(pTHX_ clock_t *r, clock_t *u, clock_t *s)

diff --git a/ext/Devel/DProf/Makefile.PL b/ext/Devel/DProf/Makefile.PL
index 10a0df9..5d975ea 100644 (file)
--- a/ext/Devel/DProf/Makefile.PL
+++ b/ext/Devel/DProf/Makefile.PL
@@ -10,7 +10,6 @@ WriteMakefile(
        VERSION_FROM    => 'DProf.pm',
        clean           => { 'FILES' => 'tmon.out t/tmon.out t/err'},
        XSPROTOARG      => '-noprototypes',
-       DEFINE          => '-DPL_NEEDED',
        dist            => {
                             COMPRESS => 'gzip -9f',
                             SUFFIX => 'gz',