In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/72e8a9531c639afce71c0a167042c50a061fdbba?hp=dc0c4db0d9b43e1a7eac7cf2cdd894dd6ef5e99e>
- Log ----------------------------------------------------------------- commit 72e8a9531c639afce71c0a167042c50a061fdbba Author: Jim Cromie <[email protected]> Date: Sun Nov 2 13:33:48 2014 -0700 op.c: CHANGE_TYPE in Perl_ck_rvconst Here, op_type and op_ppaddr inits were separated by many lines. Move them together, then replace with CHANGE_TYPE call. -- v2- actually remove the explicit op_ppaddr assignment. ----------------------------------------------------------------------- Summary of changes: op.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/op.c b/op.c index 7a795e3..28811c7 100644 --- a/op.c +++ b/op.c @@ -9459,7 +9459,7 @@ Perl_ck_rvconst(pTHX_ OP *o) && SvTYPE(SvRV(gv)) != SVt_PVCV) gv_fetchsv(kidsv, GV_ADDMULTI, SVt_PVCV); } - kid->op_type = OP_GV; + CHANGE_TYPE(kid, OP_GV); SvREFCNT_dec(kid->op_sv); #ifdef USE_ITHREADS /* XXX hack: dependence on sizeof(PADOP) <= sizeof(SVOP) */ @@ -9471,7 +9471,6 @@ Perl_ck_rvconst(pTHX_ OP *o) kid->op_sv = SvREFCNT_inc_simple_NN(gv); #endif kid->op_private = 0; - kid->op_ppaddr = PL_ppaddr[OP_GV]; /* FAKE globs in the symbol table cause weird bugs (#77810) */ SvFAKE_off(gv); } -- Perl5 Master Repository
