PerlInterpreter *modperl_startup(server_rec *s, ap_pool_t *p)
PerlInterpreter *modperl_startup(server_rec *s, apr_pool_t *p)
PerlInterpreter *modperl_startup(server_rec *s, ap_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);    status = perl_parse(perl, xs_init, argc, argv, NULL);    if (status) {        perror("perl_parse");        exit(1);    }    perl_run(perl);#ifdef MP_USE_GTOP    MP_TRACE_m_do(        modperl_gtop_do_proc_mem_after(MP_FUNC ": perl_parse");    );#endif    return perl;}