From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 21 Mar 2002 23:13:44 +0000 (+0000)
Subject: PM_SETRE() fallout.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e357fc912c78f5a5ed09912f6ba95dab73ff4019;p=p5sagit%2Fp5-mst-13.2.git

PM_SETRE() fallout.

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

diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index 5a779aa..be5fddd 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -140,8 +140,10 @@ typedef IV IV64;
 	hv_store((HV*)sv, bstate->bs_pv.xpv_pv, bstate->bs_pv.xpv_cur, arg, 0)
 #define BSET_pv_free(pv)	Safefree(pv.xpv_pv)
 #define BSET_pregcomp(o, arg) \
-	(PM_SETRE(((PMOP*)o), (arg ? \
-        	CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0)))
+	STMT_START { \
+		PM_SETRE(((PMOP*)o), (arg ? \
+        	         CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0)); \
+	} STMT_END
 #define BSET_newsv(sv, arg)				\
 	STMT_START {					\
 	    sv = (arg == SVt_PVAV ? (SV*)newAV() :	\