1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index e18a4c8df8..79ee972e02 100644
--- a/toke.c
+++ b/toke.c
@@ -1269,8 +1269,8 @@ S_scan_const(pTHX_ char *start)
 	    if (s[2] == '#') {
 		while (s < send && *s != ')')
 		    *d++ = *s++;
-	    } else if (s[2] == '{'
-		       || s[2] == 'p' && s[3] == '{') {	/* This should march regcomp.c */
+	    } else if (s[2] == '{' /* This should match regcomp.c */
+		       || (s[2] == 'p' || s[2] == '?') && s[3] == '{') {	
 		I32 count = 1;
 		char *regparse = s + (s[2] == '{' ? 3 : 4);
 		char c;