diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-11-29 15:17:54 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-11-29 15:17:54 +0000 |
| commit | ad9e76a8629ed1ac483f0a7ed0e4da40ac5a1a00 (patch) | |
| tree | 0ac533a156884d197342adff467b1b91c9272e8e /perl.h | |
| parent | 0f93bb20132f1d122993dac5d6e249240a28646e (diff) | |
| download | perl-ad9e76a8629ed1ac483f0a7ed0e4da40ac5a1a00.tar.gz | |
Add a verbose option to -DP, and replace C<#if 0> blocks in sv_gets() with it.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -3699,6 +3699,7 @@ Gid_t getegid (void); # define DEBUG_B_TEST_ (PL_debug & DEBUG_B_FLAG) # define DEBUG_Xv_TEST_ (DEBUG_X_TEST_ && DEBUG_v_TEST_) # define DEBUG_Uv_TEST_ (DEBUG_U_TEST_ && DEBUG_v_TEST_) +# define DEBUG_Pv_TEST_ (DEBUG_P_TEST_ && DEBUG_v_TEST_) #ifdef DEBUGGING @@ -3729,6 +3730,7 @@ Gid_t getegid (void); # define DEBUG_B_TEST DEBUG_B_TEST_ # define DEBUG_Xv_TEST DEBUG_Xv_TEST_ # define DEBUG_Uv_TEST DEBUG_Uv_TEST_ +# define DEBUG_Pv_TEST DEBUG_Pv_TEST_ # define PERL_DEB(a) a # define PERL_DEBUG(a) if (PL_debug) a @@ -3766,6 +3768,7 @@ Gid_t getegid (void); # define DEBUG_D(a) DEBUG__(DEBUG_D_TEST, a) # define DEBUG_Xv(a) DEBUG__(DEBUG_Xv_TEST, a) # define DEBUG_Uv(a) DEBUG__(DEBUG_Uv_TEST, a) +# define DEBUG_Pv(a) DEBUG__(DEBUG_Pv_TEST, a) # define DEBUG_T(a) DEBUG__(DEBUG_T_TEST, a) # define DEBUG_R(a) DEBUG__(DEBUG_R_TEST, a) @@ -3805,6 +3808,7 @@ Gid_t getegid (void); # define DEBUG_B_TEST (0) # define DEBUG_Xv_TEST (0) # define DEBUG_Uv_TEST (0) +# define DEBUG_Pv_TEST (0) # define PERL_DEB(a) # define PERL_DEBUG(a) @@ -3834,6 +3838,7 @@ Gid_t getegid (void); # define DEBUG_B(a) # define DEBUG_Xv(a) # define DEBUG_Uv(a) +# define DEBUG_Pv(a) #endif /* DEBUGGING */ |