[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.

1 files changed, 4 insertions, 0 deletions

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 56c23d1d16..a84cfc2c08 100644
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -530,6 +530,10 @@ eval 's /${<>{}) //';
 # Also used to crash [perl #123652]
 eval{$1=eval{a:}};
 
+# Used to fail assertions [perl #123753]
+eval "map+map";
+eval "grep+grep";
+
 # Add new tests HERE (above this line)
 
 # bug #74022: Loop on characters in \p{OtherIDContinue}