summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-10-21 09:28:52 +0100
committerDavid Mitchell <davem@iabyn.com>2016-02-03 09:18:31 +0000
commit4ebe6e957149a0288810b6241653721d805397aa (patch)
treeed141b6705ef0a1c15337babf3bdce722b665105 /perl.c
parent77189b8c243837b664cb444e867999e67e87ca44 (diff)
downloadperl-4ebe6e957149a0288810b6241653721d805397aa.tar.gz
add CX_CUR() macro
This is simply #define CX_CUR() (&cxstack[cxstack_ix])
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index a7938bd774..ab8f0128d3 100644
--- a/perl.c
+++ b/perl.c
@@ -2824,7 +2824,7 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags)
* may or may not have already been popped */
if (cxstack_ix > old_cxix) {
assert(cxstack_ix == old_cxix + 1);
- assert(CxTYPE(&cxstack[cxstack_ix]) == CXt_EVAL);
+ assert(CxTYPE(CX_CUR()) == CXt_EVAL);
delete_eval_scope();
}
JMPENV_POP;