X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d28d780685cbd952928da9c691e2b5bae129457a..7fe44985589724dcec9673580abb16118ba49068:/regexp.h

diff --git a/regexp.h b/regexp.h
index 07fe0b7..f2366ca 100644
--- a/regexp.h
+++ b/regexp.h
@@ -379,7 +379,7 @@ and check for NULL.
 #define RX_WRAPLEN(prog)	SvCUR(prog)
 #define RX_CHECK_SUBSTR(prog)	(((struct regexp *)SvANY(prog))->check_substr)
 #define RX_REFCNT(prog)		SvREFCNT(prog)
-#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
 #  define RX_EXTFLAGS(prog)						\
     (*({								\
 	const REGEXP *const thwape = (prog);				\
@@ -464,7 +464,7 @@ and check for NULL.
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 
-#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
 #  define ReREFCNT_inc(re)						\
     ({									\
 	/* This is here to generate a casting warning if incorrect.  */	\