X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=820d249a730f7590166a50dccfa39476578e263c;hb=76aca5af738faefb781bfd6b5b50ac7eb5a33af8;hp=0ecf6933caf6975cf3b3388152a4b25b3b63cf4a;hpb=6e42ee234deb79fad1c91703e5a7ec3bd8bc47f3;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/Magic.xs b/Magic.xs index 0ecf693..820d249 100644 --- a/Magic.xs +++ b/Magic.xs @@ -267,14 +267,12 @@ STATIC SV *vmg_data_new(pTHX_ SV *ctor, SV *sv, AV *args) { call_sv(ctor, G_SCALAR); SPAGAIN; - nsv = POPs; #if VMG_HAS_PERL(5, 8, 3) SvREFCNT_inc(nsv); /* Or it will be destroyed in FREETMPS */ #else nsv = sv_newref(nsv); /* Workaround some bug in SvREFCNT_inc() */ #endif - PUTBACK; FREETMPS; @@ -510,7 +508,6 @@ STATIC int vmg_cb_call(pTHX_ SV *cb, SV *sv, SV *data, unsigned int flags, ...){ FREETMPS; LEAVE; - return ret; }