[svn:ponie] rev 329 - trunk/perl

Author: nicholas
Date: Mon Jul 11 03:54:07 2005
New Revision: 329

Modified:
   trunk/perl/sv.h
Log:
The SvREFCNT_inc macro wasn't working on non-gcc


Modified: trunk/perl/sv.h
==============================================================================
--- trunk/perl/sv.h	(original)
+++ trunk/perl/sv.h	Mon Jul 11 03:54:07 2005
@@ -158,7 +158,7 @@ perform the upgrade if necessary.  See C
     })
 #else
 #  define SvREFCNT_inc(sv)	\
-	((PL_Sv=(SV*)(sv)), (PL_Sv && Parrot_PMC_set_intval_intkey(PL_Parrot, MUMBLE(PL_Sv), Ponie_I_SV_REFCNT_INC, +1)), (SV*)PL_Sv)
+	((PL_Sv=(SV*)(sv)), PL_Sv ? (Parrot_PMC_set_intval_intkey(PL_Parrot, MUMBLE(PL_Sv), Ponie_I_SV_REFCNT_INC, +1), (SV*)PL_Sv) : (SV*)PL_Sv)
 #endif
 
 #if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)