diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-02 01:42:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-02 01:42:37 +0000 |
| commit | 13b51b796ac5d39ced5a8f4f5922bfa7ca1678d5 (patch) | |
| tree | 4dcda138b2a559c6ce9b0c8fc8749f2d4aa38dd4 /pp_ctl.c | |
| parent | 6062c5872245fd543e745c009f447b5dc5ad78c1 (diff) | |
| download | perl-13b51b796ac5d39ced5a8f4f5922bfa7ca1678d5.tar.gz | |
fixes for bugs in /RE/p from Hugo van der Sanden
Date: Mon, 28 Sep 1998 17:41:49 +0100
Message-Id: <199809281641.RAA02450@crypt.compulink.co.uk>
Subject: [PATCH 5.005_52] Re: More on ?p
--
Date: Thu, 01 Oct 1998 09:10:58 +0100
Message-Id: <199810010810.JAA16426@crypt.compulink.co.uk>
Subject: [PATCH 5.005_52] ?p fix
--
Date: Thu, 01 Oct 1998 10:45:56 +0100
Message-Id: <199810010945.KAA16733@crypt.compulink.co.uk>
Subject: [PATCH 5.005_52] more on ?p
p4raw-id: //depot/perl@1903
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2380,20 +2380,20 @@ sv_compile_2op(SV *sv, OP** startop, char *code, AV** avp) PL_hints = 0; PL_op = &dummy; - PL_op->op_type = 0; /* Avoid uninit warning. */ + PL_op->op_type = OP_ENTEREVAL; PL_op->op_flags = 0; /* Avoid uninit warning. */ PUSHBLOCK(cx, CXt_EVAL, SP); PUSHEVAL(cx, 0, PL_compiling.cop_filegv); rop = doeval(G_SCALAR, startop); - POPBLOCK(cx,PL_curpm); POPEVAL(cx); + POPBLOCK(cx,PL_curpm); (*startop)->op_type = OP_NULL; (*startop)->op_ppaddr = ppaddr[OP_NULL]; lex_end(); *avp = (AV*)SvREFCNT_inc(PL_comppad); LEAVE; - if (curcop = &PL_compiling) + if (PL_curcop == &PL_compiling) PL_compiling.op_private = PL_hints; #ifdef OP_IN_REGISTER op = PL_opsave; |