diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2001-02-22 20:30:12 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-23 02:04:14 +0000 |
| commit | 969058bb0cecac9baf4433435b1677be040f039c (patch) | |
| tree | b22220f9f5706449c9ade8949075abed7ff5b372 /perl.h | |
| parent | 2fa10d08630a00c5a589cdded0138b45712a5fb4 (diff) | |
| download | perl-969058bb0cecac9baf4433435b1677be040f039c.tar.gz | |
fix for parameter -Dm (for perl@8867)
Message-ID: <001801c09cdc$2faba490$2a7b55c2@vad>
p4raw-id: //depot/perl@8908
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 |