From c850101c1434ba808f7a47c4890caf49ffa3d853 Mon Sep 17 00:00:00 2001 From: Jan Dubois Date: Fri, 7 May 1999 02:59:52 +0200 Subject: [PATCH] Fix -Dm memory debugging for PERL_OBJECT Message-ID: <37321800.19118320@smtp1.ibm.net> p4raw-id: //depot/perl@3374 --- perl.h | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/perl.h b/perl.h index f9afcef..1e27d2c 100644 --- a/perl.h +++ b/perl.h @@ -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 -- 2.7.4