handler->cv = newSVpvf("%s::%s", HvNAME(GvSTASH(CvGV(cv))), GvNAME(CvGV(cv)));
handler->cv = Perl_newSVpvf(aTHX_ "%s::%s", HvNAME(GvSTASH(CvGV(cv))), GvNAME(CvGV(cv)));
void modperl_handler_cache_cv(pTHX_ modperl_handler_t *handler, CV *cv){    if (1) {        /* XXX: figure out how to invalidate cache         * e.g. if subroutine is redefined         */        handler->cv = SvREFCNT_inc((SV*)cv);        /* handler->cvgen = MP_sub_generation; */;    }    else {        handler->cv = newSVpvf("%s::%s",                               HvNAME(GvSTASH(CvGV(cv))),                               GvNAME(CvGV(cv)));    }    MP_TRACE_h(MP_FUNC, "caching %s::%s\n",               HvNAME(GvSTASH(CvGV(cv))),               GvNAME(CvGV(cv)));}