X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e6b76f1d3a551e2910f721e12bdf9cff1bf8a87a..46677718f1:/dist/Devel-PPPort/parts/inc/newRV

diff --git a/dist/Devel-PPPort/parts/inc/newRV b/dist/Devel-PPPort/parts/inc/newRV
index 6be9ca5..fe25482 100644
--- a/dist/Devel-PPPort/parts/inc/newRV
+++ b/dist/Devel-PPPort/parts/inc/newRV
@@ -19,7 +19,7 @@ newRV_noinc
 __UNDEFINED__  newRV_inc(sv)  newRV(sv)   /* Replace */
 
 #ifndef newRV_noinc
-#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
 #  define newRV_noinc(sv) ({ SV *_sv = (SV *)newRV((sv)); SvREFCNT_dec((sv)); _sv; })
 #else
 #  define newRV_noinc(sv) ((PL_Sv = (SV *)newRV((sv))), SvREFCNT_dec((sv)), PL_Sv)