Re: [ID 20011117.127] Not OK: perl v5.7.2 +DEVEL13048 on i686-linux 2.4.15-pre6

Message-ID: <Pine.SOL.4.10.10111201240270.15132-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@13134

diff --git a/ext/re/Makefile.PL b/ext/re/Makefile.PL
index f54f1cd..51573af 100644 (file)
--- a/ext/re/Makefile.PL
+++ b/ext/re/Makefile.PL
@@ -6,15 +6,6 @@ my $object = 're_exec$(OBJ_EXT) re_comp$(OBJ_EXT) re$(OBJ_EXT)';
 
 my $defines = '-DPERL_EXT_RE_BUILD -DPERL_EXT_RE_DEBUG';
 
-# We need to pretend that DEBUGGING is in effect even if it's
-# not but we need to remember that we pretended so we can avoid
-# linking to things that aren't there.
-
-if ( (($Config{'ccflags'} !~ /DEBUGGING/) && $^O ne 'VMS') || 
-     (exists($Config{'usedebugging_perl'}) && $Config{'usedebugging_perl'} ne 'Y') ) {
-  $defines .= ' -DDEBUGGING -DWAS_NOT_DEBUGGING';
-}
-
 WriteMakefile(
     NAME               => 're',
     VERSION_FROM       => 're.pm',

diff --git a/ext/re/re.xs b/ext/re/re.xs
index 3598409..98b7b82 100644 (file)
--- a/ext/re/re.xs
+++ b/ext/re/re.xs
@@ -1,3 +1,7 @@
+#if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING)
+#  define DEBUGGING
+#endif
+
 #define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"