X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_hot.c;h=c3ce802e3c6a1e891a8daf764dac0d5156a1f2a8;hb=a62b51b8b5ba4453033358d44b4729c019d6ae42;hp=d02bf96d0e6f9e0528330715348d1f2ab9b8b4b9;hpb=d07a55edad6afd25dba740156f34d6ba180fc2b2;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pp_hot.c b/pp_hot.c index d02bf96..c3ce802 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -200,7 +200,7 @@ PP(pp_padsv) if (PL_op->op_flags & OPf_MOD) { if (PL_op->op_private & OPpLVAL_INTRO) SAVECLEARSV(PAD_SVl(PL_op->op_targ)); - else if (PL_op->op_private & OPpDEREF) { + if (PL_op->op_private & OPpDEREF) { PUTBACK; vivify_ref(PAD_SVl(PL_op->op_targ), PL_op->op_private & OPpDEREF); SPAGAIN;