From 969058bb0cecac9baf4433435b1677be040f039c Mon Sep 17 00:00:00 2001 From: Vadim Konovalov Date: Thu, 22 Feb 2001 20:30:12 +0300 Subject: fix for parameter -Dm (for perl@8867) Message-ID: <001801c09cdc$2faba490$2a7b55c2@vad> p4raw-id: //depot/perl@8908 --- perl.h | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl.h') diff --git a/perl.h b/perl.h index c92e4db412..3ca216834c 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 -- cgit v1.2.1