From b938889d9d4b4ccfc4f9d337b072d69889d45185 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 19 Feb 2002 04:53:30 +0000 Subject: [PATCH] The POSIX extensions are deadly. p4raw-id: //depot/perl@14765 --- regcomp.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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) */ -- 2.7.4