From 5df8de69806210bf48dc2e451e3db37c6f274c6e Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Fri, 24 Jan 2003 18:44:19 +0000 Subject: OPf_SPECIAL on OP_DBSTATE now indicates a breakpoint. Subject: Re: [PATCH] Re: change #9754: 5 x slowdown for perl -d Message-ID: <20030124184419.F11179@fdgroup.com> p4raw-id: //depot/perl@18589 --- pp_ctl.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index 1a3fd1de0c..2e302ed6e6 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -1583,7 +1583,8 @@ PP(pp_dbstate) PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; FREETMPS; - if (PL_op->op_private || SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace)) + if (PL_op->op_flags & OPf_SPECIAL /* breakpoint */ + || SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace)) { dSP; register CV *cv; -- cgit v1.2.1