modperl_trace_level_set(s, NULL);
modperl_trace_level_set_apache(s, NULL);
void *modperl_config_srv_create(apr_pool_t *p, server_rec *s){    modperl_config_srv_t *scfg = modperl_config_srv_new(p);    ap_mpm_query(AP_MPMQ_IS_THREADED, &scfg->threaded_mpm);    if (!s->is_virtual) {        /* give a chance to MOD_PERL_TRACE env var to set         * PerlTrace. This place is the earliest point in mod_perl         * configuration parsing, when we have the server object         */        modperl_trace_level_set(s, NULL);        /* Must store the global server record as early as possible,         * because if mod_perl happens to be started from within a         * vhost (e.g., PerlLoadModule) the base server record won't         * be available to vhost and things will blow up         */        modperl_init_globals(s, p);    }        MP_TRACE_d(MP_FUNC, "p=0x%lx, s=0x%lx, virtual=%d\n",               p, s, s->is_virtual);#ifdef USE_ITHREADS    scfg->interp_pool_cfg =         (modperl_tipool_config_t *)        apr_pcalloc(p, sizeof(*scfg->interp_pool_cfg));    scfg->interp_scope = MP_INTERP_SCOPE_REQUEST;    /* XXX: determine reasonable defaults */    scfg->interp_pool_cfg->start = 3;    scfg->interp_pool_cfg->max_spare = 3;    scfg->interp_pool_cfg->min_spare = 3;    scfg->interp_pool_cfg->max = 5;    scfg->interp_pool_cfg->max_requests = 2000;#endif /* USE_ITHREADS */    scfg->server = s;    return scfg;}