Introduce the PUSHSUB_DB macro, equivalent to PUSHSUB, but

without the lval context tweak. Used in OP_DBSTATE.
Subject: Re: [PATCH] Re: change #9754: 5 x slowdown for perl -d
Message-ID: <20030126174242.H16182@fdgroup.com>

p4raw-id: //depot/perl@18596

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 2e302ed6e6..7c0f8bad68 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1613,7 +1613,7 @@ PP(pp_dbstate)
 
 	push_return(PL_op->op_next);
 	PUSHBLOCK(cx, CXt_SUB, SP);
-	PUSHSUB(cx);
+	PUSHSUB_DB(cx);
 	CvDEPTH(cv)++;
 	(void)SvREFCNT_inc(cv);
 	PAD_SET_CUR(CvPADLIST(cv),1);