From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 19 Feb 2002 04:53:30 +0000 (+0000)
Subject: The POSIX extensions are deadly.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b938889d9d4b4ccfc4f9d337b072d69889d45185;p=p5sagit%2Fp5-mst-13.2.git

The POSIX extensions are deadly.

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

diff --git a/regcomp.c b/regcomp.c
index 53b1698..b453116 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3450,8 +3450,7 @@ S_regpposixcc(pTHX_ RExC_state_t *pRExC_state, I32 value)
 STATIC void
 S_checkposixcc(pTHX_ RExC_state_t *pRExC_state)
 {
-    if (!SIZE_ONLY && ckWARN(WARN_REGEXP) &&
-	POSIXCC(UCHARAT(RExC_parse))) {
+    if (!SIZE_ONLY && POSIXCC(UCHARAT(RExC_parse))) {
 	char *s = RExC_parse;
  	char  c = *s++;
 
@@ -3516,7 +3515,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
 
     nextvalue = RExC_parse < RExC_end ? UCHARAT(RExC_parse) : 0;
 
-    if (!SIZE_ONLY && ckWARN(WARN_REGEXP) && POSIXCC(nextvalue))
+    if (!SIZE_ONLY && POSIXCC(nextvalue))
 	checkposixcc(pRExC_state);
 
     /* allow 1st char to be ] (allowing it to be - is dealt with later) */