warn about /(?p{})/ (from Simon Cozens)

p4raw-id: //depot/perl@5475

1 files changed, 3 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index f4fcaa9073..a1272ebfc7 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1734,6 +1734,9 @@ S_reg(pTHX_ I32 paren, I32 *flagp)
 		nextchar();
 		*flagp = TRYAGAIN;
 		return NULL;
+	    case 'p':
+		Perl_warner(aTHX_ WARN_REGEXP, "(?p{}) is deprecated - use (??{})");
+		/* FALL THROUGH*/
 	    case '?':
 		logical = 1;
 		paren = *PL_regcomp_parse++;