/(?p{})/ changed to /(??{})/, per Larry's suggestion (from

Simon Cozens <simon@othersideofthe.earth.li>)

p4raw-id: //depot/perl@5467

1 files changed, 1 insertions, 1 deletions

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