From fb0c7c3c47fb17bb0b685b957af9a0cc581c8996 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 6 Feb 2015 10:14:47 -0800
Subject: [perl #123753] Fix assertion failure with map+map
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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.
---
 t/comp/parser.t | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 't/comp')

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}
-- 
cgit v1.2.1