From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 6 Oct 1998 05:04:20 +0000 (+0000)
Subject: undo bogus part of change#1903 (as pointed out by Larry)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e84b9f1f0b4da5ba8347989e9d69c5f084c7182e;p=p5sagit%2Fp5-mst-13.2.git

undo bogus part of change#1903 (as pointed out by Larry)

p4raw-link: @1903 on //depot/perl: 13b51b796ac5d39ced5a8f4f5922bfa7ca1678d5

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 87e399a..2791ade 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2385,8 +2385,8 @@ sv_compile_2op(SV *sv, OP** startop, char *code, AV** avp)
     PUSHBLOCK(cx, CXt_EVAL, SP);
     PUSHEVAL(cx, 0, PL_compiling.cop_filegv);
     rop = doeval(G_SCALAR, startop);
-    POPEVAL(cx);
     POPBLOCK(cx,PL_curpm);
+    POPEVAL(cx);
 
     (*startop)->op_type = OP_NULL;
     (*startop)->op_ppaddr = ppaddr[OP_NULL];