summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-10-15 17:46:31 +0100
committerDavid Mitchell <davem@iabyn.com>2016-02-03 08:59:44 +0000
commit5da525e936e698594d244b27c2a587233b8ba165 (patch)
tree3539ced73e81f93b7dd1842061b3045264e18180 /pp_sys.c
parent5ee28f95c04acbb307826012a96b9fcf7baf3efd (diff)
downloadperl-5da525e936e698594d244b27c2a587233b8ba165.tar.gz
add CX_POP(cx) macro: glorified cxstack_ix--
but with extra checking goodness on debugging builds.
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index be4dec4f6a..0792727ed6 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1527,7 +1527,7 @@ PP(pp_leavewrite)
POPFORMAT(cx);
POPBLOCK(cx);
retop = cx->blk_sub.retop;
- cxstack_ix--;
+ CX_POP(cx);
if (is_return)
/* XXX the semantics of doing 'return' in a format aren't documented.