summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-11-12 23:11:34 -0800
committerFather Chrysostomos <sprout@cpan.org>2012-11-13 00:01:39 -0800
commit960d72e5aabe1bcd460c85c537d80761c636fb0f (patch)
tree41480e99856050d8b265bc7d0620ef0f4e6da6be /pp_ctl.c
parent9ffcdca1f504cb09088413c074b35af4b7f247e3 (diff)
downloadperl-960d72e5aabe1bcd460c85c537d80761c636fb0f.tar.gz
Prune dead code in pp_ctl.c:pp_goto
We croak if CxTYPE(cx) == CXt_EVAL before reaching the code in question.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c5
1 files changed, 0 insertions, 5 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 0df8b0c132..1f4afc0f05 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2896,11 +2896,6 @@ PP(pp_goto)
}
else {
PADLIST * const padlist = CvPADLIST(cv);
- if (CxTYPE(cx) == CXt_EVAL) {
- PL_in_eval = CxOLD_IN_EVAL(cx);
- PL_eval_root = cx->blk_eval.old_eval_root;
- cx->cx_type = CXt_SUB;
- }
cx->blk_sub.cv = cv;
cx->blk_sub.olddepth = CvDEPTH(cv);