Update Devel-PPPort to release 3.62

[perl5.git] / dist / Devel-PPPort / parts / inc / newSV_type

diff --git a/dist/Devel-PPPort/parts/inc/newSV_type b/dist/Devel-PPPort/parts/inc/newSV_type
index 4b17419..00050e7 100644 (file)
--- a/dist/Devel-PPPort/parts/inc/newSV_type
+++ b/dist/Devel-PPPort/parts/inc/newSV_type
@@ -16,7 +16,7 @@ newSV_type
 =implementation
 
 #ifndef newSV_type
-#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
 #  define newSV_type(t) ({ SV *_sv = newSV(0); sv_upgrade(_sv, (t)); _sv; })
 #else
 #  define newSV_type(t) ((PL_Sv = newSV(0)), sv_upgrade(PL_Sv, (t)), PL_Sv)