projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a72a109
)
Combine two blocks in pp_ctl.c:S_doeval
author
Father Chrysostomos
<sprout@cpan.org>
Wed, 16 Nov 2011 02:06:10 +0000
(18:06 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Thu, 17 Nov 2011 17:18:01 +0000
(09:18 -0800)
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.
pp_ctl.c
patch
|
blob
|
history
diff --git
a/pp_ctl.c
b/pp_ctl.c
index
667f91b
..
98a280f
100644
(file)
--- a/
pp_ctl.c
+++ b/
pp_ctl.c
@@
-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) {