avoid dup warning (from Simon Cozens)

p4raw-id: //depot/perl@5734

diff --git a/regcomp.c b/regcomp.c
index 13fa36c..05e77ba 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -1732,7 +1732,9 @@ S_reg(pTHX_ I32 paren, I32 *flagp)
                *flagp = TRYAGAIN;
                return NULL;
            case 'p':
-               Perl_warner(aTHX_ WARN_REGEXP, "(?p{}) is deprecated - use (??{})");
+               if (PL_regcode == &PL_regdummy)
+                   Perl_warner(aTHX_ WARN_REGEXP,
+                               "(?p{}) is deprecated - use (??{})");
                /* FALL THROUGH*/
            case '?':
                logical = 1;