From e40b81a3dd247b1a29fc78399677b77b78b5f183 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 22 Jan 2007 19:21:21 +0000 Subject: Remove duplicate assignment to PL_eval_root in Perl_create_eval_scope p4raw-id: //depot/perl@29921 --- pp_ctl.c | 1 - 1 file changed, 1 deletion(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index b439c3e5f4..10e3370359 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) -- cgit v1.2.1