(?p{}) has been deprecated for a long time.

Remove it, so people are not confused with regard to the
new /p regexp modifier.

p4raw-id: //depot/perl@30424

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 89bb87b757..24accc6d32 100644
--- a/toke.c
+++ b/toke.c
@@ -2024,7 +2024,7 @@ S_scan_const(pTHX_ char *start)
 		    *d++ = NATIVE_TO_NEED(has_utf8,*s++);
 	    }
 	    else if (s[2] == '{' /* This should match regcomp.c */
-		     || ((s[2] == 'p' || s[2] == '?') && s[3] == '{'))
+		    || (s[2] == '?' && s[3] == '{'))
 	    {
 		I32 count = 1;
 		char *regparse = s + (s[2] == '{' ? 3 : 4);