diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2015-02-06 10:14:47 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2015-02-06 10:14:47 -0800 |
| commit | fb0c7c3c47fb17bb0b685b957af9a0cc581c8996 (patch) | |
| tree | 0703db1d1eb07eaa79a426915f889d1d254c3208 /regen | |
| parent | 488bc5795891132d29daec7a860cab2a6266230c (diff) | |
| download | perl-fb0c7c3c47fb17bb0b685b957af9a0cc581c8996.tar.gz | |
[perl #123753] Fix assertion failure with map+map
ck_grep calls ck_fun, which sets the lower private bits to indicate
the number of operands. ck_grep usually undoes that, by clobbering
op_private completetly. If an error has occurred, it doesn’t, so we
may fail an assertion if the lower bits are not expected to be set on
mapstart and grepstart.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/op_private | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/regen/op_private b/regen/op_private index c8c09d6d93..e47f5d3ba8 100644 --- a/regen/op_private +++ b/regen/op_private @@ -202,6 +202,9 @@ use strict; $args1{$_} = 1 for ( qw(reverse), # ck_fun(), but most bits stolen + qw(mapstart grepstart), # set in ck_fun, but + # cleared in ck_grep, + # unless there is an error grep !$maxarg{$_} && !$args0{$_}, ops_with_flag('1'), # UNOP ops_with_flag('+'), # UNOP_AUX |