cur = 0;
len = 0;
nv = SvNVX(sv);
- iv = (IV)nv;
+ iv = I_V(nv);
magic = 0;
stash = 0;
del_XNV(SvANY(sv));
G_DISCARD|G_EVAL|G_KEEPERR);
SvREFCNT(sv)--;
POPSTACK;
+ SPAGAIN;
LEAVE;
}
} while (SvOBJECT(sv) && SvSTASH(sv) != stash);
if (SvGMAGICAL(sv))
mg_get(sv);
if (SvROK(sv)) {
+ dTHR;
+ SV **sp = &sv; /* Used in tryAMAGICunDEREF macro. */
+ tryAMAGICunDEREF(to_cv);
+
cv = (CV*)SvRV(sv);
if (SvTYPE(cv) != SVt_PVCV)
croak("Not a subroutine reference");