From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 22 Jan 2007 19:21:21 +0000 (+0000)
Subject: Remove duplicate assignment to PL_eval_root in Perl_create_eval_scope
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e40b81a3dd247b1a29fc78399677b77b78b5f183;p=p5sagit%2Fp5-mst-13.2.git

Remove duplicate assignment to PL_eval_root in Perl_create_eval_scope

p4raw-id: //depot/perl@29921
---

diff --git a/pp_ctl.c b/pp_ctl.c
index b439c3e..10e3370 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3615,7 +3615,6 @@ Perl_create_eval_scope(pTHX_ U32 flags)
 
     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)