From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 14 Mar 2000 22:20:27 +0000 (+0000)
Subject: tweak to use SIZE_ONLY
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7e9e3857befe7a39725ee224b7fb86bae37b3de;p=p5sagit%2Fp5-mst-13.2.git

tweak to use SIZE_ONLY

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

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