diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-22 19:21:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-22 19:21:21 +0000 |
| commit | e40b81a3dd247b1a29fc78399677b77b78b5f183 (patch) | |
| tree | abacdf9e7c04ba11651ada417cbe8dbc6aeee596 /pp_ctl.c | |
| parent | c31ebb88649e07f62cbfa9026d36b32cf2346903 (diff) | |
| download | perl-e40b81a3dd247b1a29fc78399677b77b78b5f183.tar.gz | |
Remove duplicate assignment to PL_eval_root in Perl_create_eval_scope
p4raw-id: //depot/perl@29921
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -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) |