Change 14765: The POSIX extensions are deadly.

[Jarkko Hietaniemi]

Change 14765 by jhi@alpha on 2002/02/19 04:53:30

        The POSIX extensions are deadly.

Affected files ...

.... //depot/perl/regcomp.c#286 edit

Differences ...

==== //depot/perl/regcomp.c#286 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~  Mon Feb 18 22:00:06 2002
+++ perl/regcomp.c      Mon Feb 18 22:00:06 2002
@@ -3450,8 +3450,7 @@
 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 @@
 
     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) */
End of Patch.