From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Thu, 22 Feb 2001 17:30:12 +0000 (+0300)
Subject: fix for parameter -Dm (for perl@8867)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=969058bb0cecac9baf4433435b1677be040f039c;p=p5sagit%2Fp5-mst-13.2.git

fix for parameter -Dm (for perl@8867)
Message-ID: <001801c09cdc$2faba490$2a7b55c2@vad>

p4raw-id: //depot/perl@8908
---

diff --git a/perl.h b/perl.h
index c92e4db..3ca2168 100644
--- a/perl.h
+++ b/perl.h
@@ -2146,9 +2146,11 @@ Gid_t getegid (void);
 #  if defined(PERL_OBJECT)
 #    define DEBUG_m(a) if (PL_debug & 128)	a
 #  else
+     /* Temporarily turn off memory debugging in case the a
+      * does memory allocation, either directly or indirectly. */
 #    define DEBUG_m(a)  \
     STMT_START {							\
-	if (PERL_GET_INTERP) { dTHX; if (PL_debug & 128) { a; } }	\
+        if (PERL_GET_INTERP) { dTHX; if (PL_debug & 128) {PL_debug&=~128; a; PL_debug|=128;} } \
     } STMT_END
 #  endif
 #define DEBUG_f(a) if (PL_debug & 256)	a