diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-09 10:54:39 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-09 12:15:23 -0800 |
| commit | 6ffceeb7a338e77238d41577677b09a402d84fa0 (patch) | |
| tree | f7b36d29dedd93c469744521353037c03cf0cac6 /pp_hot.c | |
| parent | ea91b2437c537de91bcf98d90ddd14ec72486808 (diff) | |
| download | perl-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_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1394,7 +1394,7 @@ PP(pp_match) if (PL_op->op_flags & OPf_STACKED) TARG = POPs; - else if (PL_op->op_private & OPpTARGET_MY) + else if (ARGTARG) GETTARGET; else { TARG = DEFSV; @@ -2098,7 +2098,7 @@ PP(pp_subst) if (PL_op->op_flags & OPf_STACKED) TARG = POPs; - else if (PL_op->op_private & OPpTARGET_MY) + else if (ARGTARG) GETTARGET; else { TARG = DEFSV; |