Alt-Devel-CallParser-ButWorking
view release on metacpan or search on metacpan
lib/Devel/CallParser.xs view on Meta::CPAN
return mg;
return NULL;
}
#endif /* !mg_findext */
#ifndef sv_unmagicext
# define sv_unmagicext(sv, type, vtbl) THX_sv_unmagicext(aTHX_ sv, type, vtbl)
static int THX_sv_unmagicext(pTHX_ SV *sv, int type, MGVTBL const *vtbl)
{
MAGIC *mg, **mgp;
if((vtbl && vtbl->svt_free) || type == PERL_MAGIC_regex_global)
/* exceeded intended usage of this reserve implementation */
return 0;
if(SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv)) return 0;
mgp = NULL;
for(mg = mgp ? *mgp : SvMAGIC(sv); mg; mg = mgp ? *mgp : SvMAGIC(sv)) {
if(mg->mg_type == type && mg->mg_virtual == vtbl) {
if(mgp)
*mgp = mg->mg_moremagic;
else
SvMAGIC_set(sv, mg->mg_moremagic);
( run in 0.247 second using v1.01-cache-2.11-cpan-eab888a1d7d )