SvREFCNT_inc((SV*)cv);
modperl_handler_t *modperl_handler_new_anon(pTHX_ apr_pool_t *p, CV *cv){    modperl_handler_t *handler =         (modperl_handler_t *)apr_pcalloc(p, sizeof(*handler));    MpHandlerPARSED_On(handler);    MpHandlerANON_On(handler);#ifdef USE_ITHREADS    handler->cv      = NULL;    handler->name    = NULL;    handler->mgv_obj = modperl_handler_anon_next(aTHX_ p);    modperl_handler_anon_add(aTHX_ handler->mgv_obj, cv);#else    /* it's safe to cache and later use the cv, since the same perl     * interpeter is always used */    handler->cv   = cv;    handler->name = NULL;    MP_TRACE_h(MP_FUNC, "[%s] new cached cv anon handler\n",               modperl_pid_tid(p));#endif    return handler;}