summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-12-28 07:30:51 -0600
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-12-29 14:17:38 +0000
commit38a574c7cd99f8022d4ac40300e9e0841811bd6b (patch)
treec0bd7566d57fe9bf6296a3cb426d48601833e128
parentf16dd614412ea67a8eb64bb09a88fccdbd9db6b6 (diff)
downloadperl-38a574c7cd99f8022d4ac40300e9e0841811bd6b.tar.gz
Fixing the SVREFCNT macro
Message-ID: <20051228193051.GD23207@petdance.com> p4raw-id: //depot/perl@26524
-rw-r--r--sv.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.h b/sv.h
index acb4fe6473..b5aeac8feb 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)