diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 05:04:20 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 05:04:20 +0000 |
| commit | e84b9f1f0b4da5ba8347989e9d69c5f084c7182e (patch) | |
| tree | f78035aa022690fe4db48082127f40f626887134 /pp_ctl.c | |
| parent | 875fa795126d3e174a4527369088f0d7d6bc28f1 (diff) | |
| download | perl-e84b9f1f0b4da5ba8347989e9d69c5f084c7182e.tar.gz | |
undo bogus part of change#1903 (as pointed out by Larry)
p4raw-link: @1903 on //depot/perl: 13b51b796ac5d39ced5a8f4f5922bfa7ca1678d5
p4raw-id: //depot/perl@1933
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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]; |