gcc warning patch by Andy Lester

p4raw-id: //depot/perl@24032

diff --git a/perl.h b/perl.h
index ee51583..a7281f0 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -204,7 +204,9 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
 #endif
 
 #if defined(__STRICT_ANSI__) && defined(PERL_GCC_PEDANTIC)
-#   define PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#  if !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#    define PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#  endif
 #endif
 
 /*