perl.h: clang shows warnings with gcc brace groups

Perl · Jul 12, 2021 · befee8d · befee8d
1 parent aa41085
commit befee8d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/perl.h b/perl.h
@@ -686,7 +686,9 @@ Now a placeholder that declares nothing
 #    define dTHXs		dNOOP
 #endif
 
-#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus)
+/* clang shows warnings for tokens introducing statement expression appear
+ * in different macro expansion contexts. */
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus) && !defined(__clang__)
 #  ifndef PERL_USE_GCC_BRACE_GROUPS
 #    define PERL_USE_GCC_BRACE_GROUPS
 #  endif