In struct block_subst, access the member once via a macro CxONCE()

which will allow the storage location to be changed.

p4raw-id: //depot/perl@33034

1 files changed, 2 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index ccf910b46a..7c4c721618 100644
--- a/cop.h
+++ b/cop.h
@@ -650,6 +650,8 @@ struct subst {
 	rxres_save(&cx->sb_rxres, rx);					\
 	(void)ReREFCNT_inc(rx)
 
+#define CxONCE(cx)		(0 + cx->sb_once)
+
 #define POPSUBST(cx) cx = &cxstack[cxstack_ix--];			\
 	rxres_free(&cx->sb_rxres);					\
 	ReREFCNT_dec(cx->sb_rx)