From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Sun, 3 Feb 2002 20:21:45 +0000 (-0800)
Subject: (??{ }) anomaly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=438a380156ae0ffaf23d68d3658b8429f19d614f;p=p5sagit%2Fp5-mst-13.2.git

(??{ }) anomaly
Message-ID: <ZxgX8gzkgCXO092yn@efn.org>

p4raw-id: //depot/perl@14547
---

diff --git a/regcomp.c b/regcomp.c
index 2283d10..7850492 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2168,6 +2168,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp)
 		/* FALL THROUGH*/
 	    case '?':           /* (??...) */
 		logical = 1;
+		if (*RExC_parse != '{')
+		    goto unknown;
 		paren = *RExC_parse++;
 		/* FALL THROUGH */
 	    case '{':           /* (?{...}) */