From: Andy Lester <andy@petdance.com>
Date: Wed, 28 Dec 2005 13:30:51 +0000 (-0600)
Subject: Fixing the SVREFCNT macro
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38a574c7cd99f8022d4ac40300e9e0841811bd6b;p=p5sagit%2Fp5-mst-13.2.git

Fixing the SVREFCNT macro
Message-ID: <20051228193051.GD23207@petdance.com>

p4raw-id: //depot/perl@26524
---

diff --git a/sv.h b/sv.h
index acb4fe6..b5aeac8 100644
--- a/sv.h
+++ b/sv.h
@@ -169,7 +169,7 @@ perform the upgrade if necessary.  See C<svtype>.
     })
 #else
 #  define SvREFCNT_inc(sv)	\
-	((PL_Sv=(SV*)(sv)), (PL_Sv && ++(SvREFCNT(PL_Sv))), (SV*)PL_Sv)
+	((PL_Sv=(SV*)(sv)) ? ((++(SvREFCNT(PL_Sv))),(PL_Sv)) : NULL)
 #endif
 
 #if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)