diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-20 22:09:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-20 22:09:56 +0000 |
| commit | 0b250b9ef0d5134fdb23236140643970d9a3fbf5 (patch) | |
| tree | a52a796a40962c0da4fa92e95a0c89c387b22e70 /perl.h | |
| parent | 4e1d07de7db222a9341b2f3ef89b3df9eeacbf4f (diff) | |
| download | perl-0b250b9ef0d5134fdb23236140643970d9a3fbf5.tar.gz | |
DEBUG_m() adjusted to internalize dTHX
p4raw-id: //depot/perl@4013
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1949,7 +1949,10 @@ Gid_t getegid (void); # if defined(PERL_OBJECT) # define DEBUG_m(a) if (PL_debug & 128) a # else -# define DEBUG_m(a) if (PERL_GET_INTERP && PL_debug & 128) a +# define DEBUG_m(a) \ + STMT_START { \ + if (PERL_GET_INTERP) { dTHX; if (PL_debug & 128) { a; } } \ + } STMT_END # endif #define DEBUG_f(a) if (PL_debug & 256) a #define DEBUG_r(a) if (PL_debug & 512) a |