view release on metacpan or  search on metacpan

Hole.xs  view on Meta::CPAN

    return newRV_noinc(opmask);
}

MODULE = Safe::Hole		PACKAGE = Safe::Hole		

void
_hole_call_sv(stashref, opmask, codesv)
    SV *	stashref
    SV *        opmask
    SV *	codesv
PPCODE:
    /*** This code is copied from Opcode::_safe_call_sv and modified ***/
    GV *gv;
    AV *av;
    SV *saved_PL_op_mask;
    MAGIC *magic;
    I32 j,ac;

    ENTER;

    if ( SvTRUE(opmask)) {