Oops.

That was part of my first attempt to fix [perl #68560]. I forgot to
delete it. (It’s harmless.)

diff --git a/pp_hot.c b/pp_hot.c
index 2176bac..c2b05ca 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -297,7 +297,6 @@ PP(pp_concat)
 PP(pp_padsv)
 {
     dVAR; dSP; dTARGET;
-    if(!TARG) TARG = PAD_SVl(PL_op->op_targ) = newSV(0);
     XPUSHs(TARG);
     if (PL_op->op_flags & OPf_MOD) {
        if (PL_op->op_private & OPpLVAL_INTRO)