X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=ba230455e8bfff3bf05a590a8ea017acf39bdf23;hb=547789f35817c76557817263360e4fa8b24b67b8;hp=416bf7286e14adec3d4db96d83a05b8c83919131;hpb=aec8d8c69d06247ad948ef908268a57c27560920;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 416bf72..ba23045 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -598,13 +598,11 @@ STATIC int vmg_wizard_free(pTHX_ SV *wiz, MAGIC *mg) {
 
  w = SV2MGWIZ(wiz);
 
- SvREFCNT_inc(wiz); /* Fake survival - it's gonna be deleted anyway */
-#if PERL_VERSION_GE(5, 9, 5)
- SvREFCNT_inc(wiz); /* One more push */
-#endif
  if (hv_delete(MY_CXT.wizz, buf, sprintf(buf, "%u", w->sig), 0)) {
   --MY_CXT.count;
  }
+ SvFLAGS(wiz) |= SVf_BREAK;
+ FREETMPS;
 
  if (w->cb_data  != NULL) { SvREFCNT_dec(SvRV(w->cb_data)); }
  if (w->cb_get   != NULL) { SvREFCNT_dec(SvRV(w->cb_get)); }