From: Alexey Tourbin <at@altlinux.ru>
Date: Thu, 16 Oct 2003 22:24:35 +0000 (+0400)
Subject: Re: assert.h breaks perl.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29e973714a981ba7ad514bfe1fab7d4003a07033;p=p5sagit%2Fp5-mst-13.2.git

Re: assert.h breaks perl.h
Message-Id: <20031016182434.GH1724@julia.office.altlinux.ru>

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

diff --git a/sv.h b/sv.h
index 38fdb12..5d2fab2 100644
--- a/sv.h
+++ b/sv.h
@@ -529,7 +529,7 @@ Set the length of the string which is in the SV.  See C<SvCUR>.
 						  SVp_IOK|SVp_NOK|SVf_IVisUV))
 
 #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
-#define assert_not_ROK(sv)	({assert(!SvROK(sv) || !SvRV(sv))}),
+#define assert_not_ROK(sv)	({assert(!SvROK(sv) || !SvRV(sv));}),
 #else
 #define assert_not_ROK(sv)	
 #endif