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 (file)
--- 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];