diff options
| author | Jan Dubois <jand@activestate.com> | 1999-05-07 02:59:52 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 11:23:44 +0000 |
| commit | c850101c1434ba808f7a47c4890caf49ffa3d853 (patch) | |
| tree | ee7ddcb4633b8c2308b284f0cdda3e40fb92b6b9 /perl.h | |
| parent | e446cec8f170ecc3eabea80092ef64589855e167 (diff) | |
| download | perl-c850101c1434ba808f7a47c4890caf49ffa3d853.tar.gz | |
Fix -Dm memory debugging for PERL_OBJECT
Message-ID: <37321800.19118320@smtp1.ibm.net>
p4raw-id: //depot/perl@3374
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1689,7 +1689,11 @@ Gid_t getegid _((void)); #define DEBUG_o(a) if (PL_debug & 16) a #define DEBUG_c(a) if (PL_debug & 32) a #define DEBUG_P(a) if (PL_debug & 64) a -#define DEBUG_m(a) if (PL_curinterp && PL_debug & 128) a +# ifdef PERL_OBJECT +# define DEBUG_m(a) if (PL_debug & 128) a +# else +# define DEBUG_m(a) if (PL_curinterp && PL_debug & 128) a +# endif #define DEBUG_f(a) if (PL_debug & 256) a #define DEBUG_r(a) if (PL_debug & 512) a #define DEBUG_x(a) if (PL_debug & 1024) a |