WIP fix sigref stack corruption

setting undef to the last stack element ($id here). see cperl #395. This is not the proper fix though.
perl11 · Jun 27, 2019 · 9a2d7ae · 9a2d7ae
1 parent b1a34c8
commit 9a2d7ae
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/pp_hot.c b/pp_hot.c
@@ -5845,8 +5845,12 @@ PP(pp_signature)
             argc--;
             DEBUG_Xv(Perl_deb(aTHX_ "  sigref padp %p = argp %p\n", *padp, *argp));
             /* copy back temp pad to old sv at leavesub */
+#if 0       /* [cperl #395] */
             save_pushptrptr(argp, padp, SAVEt_SPTR);
+#endif
+#if 1
             SvPADSTALE_on(*padp); /* mark our pad as inactive */
+#endif
             *padp++ = *argp++;    /* and overwrite new pad with old sv */
             actions >>= SIGNATURE_SHIFT;
             continue;