modperl_config_srv_argv_push((char *)ap_server_argv0);
modperl_config_srv_argv_push(apr_pstrmemdup(p, ap_server_argv0, strlen(ap_server_argv0)));
modperl_config_srv_t *modperl_config_srv_new(apr_pool_t *p){    modperl_config_srv_t *scfg = (modperl_config_srv_t *)        apr_pcalloc(p, sizeof(*scfg));    scfg->flags = modperl_options_new(p, MpSrvType);    MpSrvENABLE_On(scfg); /* mod_perl enabled by default */    MpSrvHOOKS_ALL_On(scfg); /* all hooks enabled by default */    scfg->PerlModule  = apr_array_make(p, 2, sizeof(char *));    scfg->PerlRequire = apr_array_make(p, 2, sizeof(char *));    scfg->argv = apr_array_make(p, 2, sizeof(char *));    scfg->setvars = apr_table_make(p, 2);    scfg->addvars = apr_table_make(p, 2);    scfg->configvars = apr_table_make(p, 2);    scfg->PassEnv = apr_table_make(p, 2);    scfg->SetEnv = apr_table_make(p, 2);    #ifdef MP_USE_GTOP    scfg->gtop = modperl_gtop_new(p);#endif                modperl_config_srv_argv_push((char *)ap_server_argv0);    MP_TRACE_d(MP_FUNC, "new scfg: 0x%lx\n", (unsigned long)scfg);    return scfg;}