diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-11-15 18:06:10 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-17 09:18:01 -0800 |
commit | cd6472fc34fd70358c7c0cf2c39a2eb7fe57114d (patch) | |
tree | dd5520d5343a524ccfaa0f4a55394e690517a34a /pp_ctl.c | |
parent | a72a10949f7bcdeacbfda70b3da012a34c96258b (diff) | |
download | perl-cd6472fc34fd70358c7c0cf2c39a2eb7fe57114d.tar.gz |
Combine two blocks in pp_ctl.c:S_doeval
As of commit e4a21daa4e9 which removed the intervening code, there
have been two adjacent if blocks in S_doeval with the same condition.
They can be merged into one, to avoid confusing people (like me) try-
ing to understand the code.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -3548,9 +3548,8 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) POPEVAL(cx); namesv = cx->blk_eval.old_namesv; } - } - if (yystatus != 3) LEAVE_with_name("eval"); /* pp_entereval knows about this LEAVE. */ + } if (in_require) { if (!cx) { |