mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Combine two blocks in pp_ctl.c:S_doeval

Browse Source 
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.
This commit is contained in:
Father Chrysostomos 2011-11-15 18:06:10 -08:00
parent a72a10949f
commit cd6472fc34
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pp_ctl.c
View File

@ -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) {