summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2021-01-23 02:32:31 +0000
committerPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2021-02-04 14:09:11 +0000
commit99dbf64538ee1c097b9f7e93df5a45dbf1fa3e22 (patch)
treebf7b524ce01afd970144e9e66d25bd878633d2c5 /dump.c
parentbe319be3519a71b4f83463937d76d7e2ce14e7fe (diff)
downloadperl-99dbf64538ee1c097b9f7e93df5a45dbf1fa3e22.tar.gz
Rename CxTRYBLOCK() to CxEVALBLOCK()
CxTRYBLOCK would be confusing when we add a real CxTRY for try/catch Also renames the associated CXp_TRYBLOCK flag to CXp_EVALBLOCK
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/dump.c b/dump.c
index 21dd53a65a..bb5f533543 100644
--- a/dump.c
+++ b/dump.c
@@ -3067,7 +3067,7 @@ S_deb_curcv(pTHX_ I32 ix)
if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT)
return cx->blk_sub.cv;
- else if (CxTYPE(cx) == CXt_EVAL && !CxTRYBLOCK(cx))
+ else if (CxTYPE(cx) == CXt_EVAL && !CxEVALBLOCK(cx))
return cx->blk_eval.cv;
else if (ix == 0 && si->si_type == PERLSI_MAIN)
return PL_main_cv;