diff options
author | Hugo van der Sanden <hv@crypt.org> | 2015-02-28 18:58:58 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2015-02-28 18:58:58 -0800 |
commit | 26f4cc19a2cf5dc32334b22cd7f719a3bb577497 (patch) | |
tree | d5ff79f53f08d55588f0de76d415b8a504d5d9b9 /regen | |
parent | 479ae48e22f1160cf86508685822bf7e53e5816b (diff) | |
download | perl-26f4cc19a2cf5dc32334b22cd7f719a3bb577497.tar.gz |
[perl #123763] pushre needs to permit OPpTARGET_MY
This case fails an assertion:
my($_);0=split
because a pushre op is not expected to have that flag. A pushre op
starts out as a match op (which may indeed have the flag set), as is
subsequently converted to a pushre op.
[The commit message was written by the committer.]
Diffstat (limited to 'regen')
-rw-r--r-- | regen/op_private | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/op_private b/regen/op_private index e47f5d3ba8..5a95555099 100644 --- a/regen/op_private +++ b/regen/op_private @@ -381,7 +381,7 @@ addbits($_, 4 => qw(OPpTARGET_MY TARGMY)) for ops_with_flag('T'), # This flag is also used to indicate matches against implicit $_, # where $_ is lexical; e.g. my $_; ....; /foo/ - qw(match subst trans transr); + qw(match subst pushre trans transr); ; |