@@ -4633,8 +4633,8 @@ Gid_t getegid (void);
4633
4633
# define DEBUG_Xv (a ) DEBUG__(DEBUG_Xv_TEST, a)
4634
4634
# define DEBUG_Uv (a ) DEBUG__(DEBUG_Uv_TEST, a)
4635
4635
# define DEBUG_Pv (a ) DEBUG__(DEBUG_Pv_TEST, a)
4636
- /* # define DEBUG_Lv(a) DEBUG__(DEBUG_Lv_TEST, a)*/
4637
- # define DEBUG_Lv (a ) DEBUG__(DEBUG_Lv_TEST, ({ PerlIO_printf (Perl_debug_log, " %p: " , aTHX); a; }))
4636
+ # define DEBUG_Lv (a ) DEBUG__(DEBUG_Lv_TEST, a)
4637
+ /* # define DEBUG_Lv(a) DEBUG__(DEBUG_Lv_TEST, ({ PerlIO_printf(Perl_debug_log, "%p: ", aTHX); a; }))*/
4638
4638
# define DEBUG_yv (a ) DEBUG__(DEBUG_yv_TEST, a)
4639
4639
4640
4640
# define DEBUG_S (a ) DEBUG__(DEBUG_S_TEST, a)
@@ -4646,8 +4646,8 @@ Gid_t getegid (void);
4646
4646
# define DEBUG_q (a ) DEBUG__(DEBUG_q_TEST, a)
4647
4647
# define DEBUG_M (a ) DEBUG__(DEBUG_M_TEST, a)
4648
4648
# define DEBUG_B (a ) DEBUG__(DEBUG_B_TEST, a)
4649
- # define DEBUG_L (a ) DEBUG__(DEBUG_L_TEST, ({ PerlIO_printf (Perl_debug_log, " %p: " , aTHX); a; }))
4650
- /* # define DEBUG_L(a) DEBUG__(DEBUG_L_TEST, a)*/
4649
+ /* # define DEBUG_L(a) DEBUG__(DEBUG_L_TEST, ({ PerlIO_printf(Perl_debug_log, "%p: ", aTHX); a; }))*/
4650
+ # define DEBUG_L (a ) DEBUG__(DEBUG_L_TEST, a)
4651
4651
# define DEBUG_i (a ) DEBUG__(DEBUG_i_TEST, a)
4652
4652
# define DEBUG_y (a ) DEBUG__(DEBUG_y_TEST, a)
4653
4653
0 commit comments