summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJim Cromie <jcromie@cpan.org>2007-07-05 04:17:24 -0600
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-07-07 07:12:01 +0000
commit7949c6f5835be2397160861a571a7477a640bf42 (patch)
tree830e6c3640193663197670d3d1f9d294cf442643 /perl.h
parentdaad78fc377a1f13c3b53f9a0c2196bdd763b063 (diff)
downloadperl-7949c6f5835be2397160861a571a7477a640bf42.tar.gz
[patch] add verbose mode to -DU debugging option
Message-ID: <468D1994.1090909@gmail.com> p4raw-id: //depot/perl@31549
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h13
1 files changed, 9 insertions, 4 deletions
diff --git a/perl.h b/perl.h
index 3877de1070..fefe3e8786 100644
--- a/perl.h
+++ b/perl.h
@@ -3564,6 +3564,7 @@ Gid_t getegid (void);
# define DEBUG_A_TEST_ (PL_debug & DEBUG_A_FLAG)
# define DEBUG_q_TEST_ (PL_debug & DEBUG_q_FLAG)
# define DEBUG_Xv_TEST_ (DEBUG_X_TEST_ && DEBUG_v_TEST_)
+# define DEBUG_Uv_TEST_ (DEBUG_U_TEST_ && DEBUG_v_TEST_)
#ifdef DEBUGGING
@@ -3582,7 +3583,6 @@ Gid_t getegid (void);
# define DEBUG_U_TEST DEBUG_U_TEST_
# define DEBUG_H_TEST DEBUG_H_TEST_
# define DEBUG_X_TEST DEBUG_X_TEST_
-# define DEBUG_Xv_TEST DEBUG_Xv_TEST_
# define DEBUG_D_TEST DEBUG_D_TEST_
# define DEBUG_S_TEST DEBUG_S_TEST_
# define DEBUG_T_TEST DEBUG_T_TEST_
@@ -3592,6 +3592,8 @@ Gid_t getegid (void);
# define DEBUG_C_TEST DEBUG_C_TEST_
# define DEBUG_A_TEST DEBUG_A_TEST_
# define DEBUG_q_TEST DEBUG_q_TEST_
+# define DEBUG_Xv_TEST DEBUG_Xv_TEST_
+# define DEBUG_Uv_TEST DEBUG_Uv_TEST_
# define PERL_DEB(a) a
# define PERL_DEBUG(a) if (PL_debug) a
@@ -3626,8 +3628,9 @@ Gid_t getegid (void);
# define DEBUG_U(a) DEBUG__(DEBUG_U_TEST, a)
# define DEBUG_H(a) DEBUG__(DEBUG_H_TEST, a)
# define DEBUG_X(a) DEBUG__(DEBUG_X_TEST, a)
-# define DEBUG_Xv(a) DEBUG__(DEBUG_Xv_TEST, a)
# 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_S(a)
@@ -3655,7 +3658,6 @@ Gid_t getegid (void);
# define DEBUG_U_TEST (0)
# define DEBUG_H_TEST (0)
# define DEBUG_X_TEST (0)
-# define DEBUG_Xv_TEST (0)
# define DEBUG_D_TEST (0)
# define DEBUG_S_TEST (0)
# define DEBUG_T_TEST (0)
@@ -3665,6 +3667,8 @@ Gid_t getegid (void);
# define DEBUG_C_TEST (0)
# define DEBUG_A_TEST (0)
# define DEBUG_q_TEST (0)
+# define DEBUG_Xv_TEST (0)
+# define DEBUG_Uv_TEST (0)
# define PERL_DEB(a)
# define PERL_DEBUG(a)
@@ -3683,7 +3687,6 @@ Gid_t getegid (void);
# define DEBUG_U(a)
# define DEBUG_H(a)
# define DEBUG_X(a)
-# define DEBUG_Xv(a)
# define DEBUG_D(a)
# define DEBUG_S(a)
# define DEBUG_T(a)
@@ -3692,6 +3695,8 @@ Gid_t getegid (void);
# define DEBUG_C(a)
# define DEBUG_A(a)
# define DEBUG_q(a)
+# define DEBUG_Xv(a)
+# define DEBUG_Uv(a)
#endif /* DEBUGGING */