view release on metacpan or  search on metacpan

MD5.xs  view on Meta::CPAN

    NULL, NULL, NULL, NULL, NULL
};

/* TODO defined(USE_ITHREADS) && defined(MGf_DUP) */
static SV*
new_md5_ctx(pTHX_ MD5_CTX *context, const char *sclass)
{
    SV *sv = newSV(0);
    SV *obj = newRV_noinc(sv);

    sv_bless(obj, gv_stashpv(sclass, 0));
    sv_magicext(sv, NULL, PERL_MAGIC_ext, (const MGVTBL * const)&vtbl_md5, (const char *)context, 0);

    return obj;
}

static MD5_CTX*
get_md5_ctx(pTHX_ SV* sv)
{
    MAGIC *mg;