diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-11-12 23:11:34 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-11-13 00:01:39 -0800 |
commit | 960d72e5aabe1bcd460c85c537d80761c636fb0f (patch) | |
tree | 41480e99856050d8b265bc7d0620ef0f4e6da6be /pp_ctl.c | |
parent | 9ffcdca1f504cb09088413c074b35af4b7f247e3 (diff) | |
download | perl-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.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -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); |