From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 14 Mar 2000 19:08:22 +0000 (+0000)
Subject: avoid dup warning (from Simon Cozens)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9228e8cadade046a4baa03d1e0ca1ffb6422ddd1;p=p5sagit%2Fp5-mst-13.2.git

avoid dup warning (from Simon Cozens)

p4raw-id: //depot/perl@5734
---

diff --git a/regcomp.c b/regcomp.c
index 13fa36c..05e77ba 100644
--- 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;