Change 29921 by [EMAIL PROTECTED] on 2007/01/22 19:21:21
Remove duplicate assignment to PL_eval_root in Perl_create_eval_scope
Affected files ...
... //depot/perl/pp_ctl.c#597 edit
Differences ...
==== //depot/perl/pp_ctl.c#597 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#596~29830~ 2007-01-15 06:38:58.000000000 -0800
+++ perl/pp_ctl.c 2007-01-22 11:21:21.000000000 -0800
@@ -3615,7 +3615,6 @@
PUSHBLOCK(cx, (CXt_EVAL|CXp_TRYBLOCK), PL_stack_sp);
PUSHEVAL(cx, 0, 0);
- PL_eval_root = PL_op; /* Only needed so that goto works right. */
PL_in_eval = EVAL_INEVAL;
if (flags & G_KEEPERR)
End of Patch.
