From: Jan Dubois <jand@activestate.com>
Date: Fri, 7 May 1999 00:59:52 +0000 (+0200)
Subject: Fix -Dm memory debugging for PERL_OBJECT
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c850101c1434ba808f7a47c4890caf49ffa3d853;p=p5sagit%2Fp5-mst-13.2.git

Fix -Dm memory debugging for PERL_OBJECT

	Message-ID: <37321800.19118320@smtp1.ibm.net>

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

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