argv = modperl_srv_config_argv_init(scfg, &argc);
argv = modperl_config_srv_argv_init(scfg, &argc);
PerlInterpreter *modperl_startup(server_rec *s, apr_pool_t *p){    MP_dSCFG(s);    PerlInterpreter *perl;    int status;    char **argv;    int argc;#ifdef MP_USE_GTOP    MP_TRACE_m_do(        scfg->gtop = modperl_gtop_new(p);        modperl_gtop_do_proc_mem_before(MP_FUNC ": perl_parse");    );#endif    argv = modperl_srv_config_argv_init(scfg, &argc);    if (!(perl = perl_alloc())) {        perror("perl_alloc");        exit(1);    }    perl_construct(perl);#ifdef MP_DEBUG    {        dTHXa(perl);        PL_perl_destruct_level = 2;    }#endif    status = perl_parse(perl, xs_init, argc, argv, NULL);    if (status) {        perror("perl_parse");        exit(1);    }    perl_run(perl);    MP_TRACE_i(MP_FUNC, "constructed interpreter=0x%lx\n",               (unsigned long)perl);#ifdef MP_USE_GTOP    MP_TRACE_m_do(        modperl_gtop_do_proc_mem_after(MP_FUNC ": perl_parse");    );#endif#ifndef USE_ITHREADS    apr_pool_cleanup_register(p, (void*)perl,                              modperl_shutdown, apr_pool_cleanup_null);#endif        return perl;}