summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-11-09 10:54:39 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-11-09 12:15:23 -0800
commit6ffceeb7a338e77238d41577677b09a402d84fa0 (patch)
treef7b36d29dedd93c469744521353037c03cf0cac6 /pp_ctl.c
parentea91b2437c537de91bcf98d90ddd14ec72486808 (diff)
downloadperl-6ffceeb7a338e77238d41577677b09a402d84fa0.tar.gz
Don’t check OPpTARGET_MY on match ops at run time
The offset in op_targ is sufficient. The next commit will take advan- tage of this.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index e32a17e124..59ad06e7c6 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -142,7 +142,7 @@ PP(pp_regcomp)
const bool was_tainted = TAINT_get;
if (pm->op_flags & OPf_STACKED)
lhs = args[-1];
- else if (pm->op_private & OPpTARGET_MY)
+ else if (pm->op_targ)
lhs = PAD_SV(pm->op_targ);
else lhs = DEFSV;
SvGETMAGIC(lhs);