X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=df86b33edfd7ee6dd994d48b6d87721fbac39800;hb=068ea108c28a60581d00b44976dc979860832c8e;hp=6ec752bcf14a3f5565b7a5372c5bb91bfa021a71;hpb=480d76182c123d90242fc84e0ee3d94733f11a99;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 6ec752b..df86b33 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -681,6 +681,7 @@ STATIC UV vmg_cast(pTHX_ SV *sv, const SV *wiz, SV **args, I32 items) {
 
  data = (w->cb_data) ? vmg_data_new(w->cb_data, sv, args, items) : NULL;
  mg = sv_magicext(sv, data, PERL_MAGIC_ext, w->vtbl, (const char *) wiz, HEf_SVKEY);
+ SvREFCNT_dec(data);
  mg->mg_private = SIG_WIZ;
 #if MGf_COPY
  if (w->cb_copy)