diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-01-24 18:44:19 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-26 13:06:49 +0000 |
| commit | 5df8de69806210bf48dc2e451e3db37c6f274c6e (patch) | |
| tree | 87e78761ebadc9a6b18bb9f3a10ea6605d6fa473 /pp_ctl.c | |
| parent | d0fadae5d4cea3f6bdf497d00d0f9244d89f6f89 (diff) | |
| download | perl-5df8de69806210bf48dc2e451e3db37c6f274c6e.tar.gz | |
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
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |