diff --git a/pp_hot.c b/pp_hot.c index d9ed8b999c0..8b384f5651b 100644 --- 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;