static void modperl_boot(void *data)
static void modperl_boot(pTHX_ void *data)
static void modperl_boot(void *data){    MP_dBOOT_DATA;    MP_dSCFG(s);    dTHX; /* XXX: not too worried since this only happens at startup */    int i;    #ifdef MP_REFGEN_FIXUP    modperl_refgen_ops_fixup();#endif    modperl_env_clear(aTHX);    modperl_env_default_populate(aTHX);    modperl_env_configure_server(aTHX_ p, s);    modperl_perl_core_global_init(aTHX);    for (i=0; MP_xs_loaders[i]; i++) {        char *name = Perl_form(aTHX_ MP_xs_loader_name, MP_xs_loaders[i]);        newCONSTSUB(PL_defstash, name, newSViv(1));    }    newCONSTSUB(PL_defstash, "Apache::MPM_IS_THREADED",                newSViv(scfg->threaded_mpm));#ifdef MP_PERL_5_6_x    /* make sure DynaLoader is loaded before XSLoader     * to workaround bug in 5.6.1 that can trigger a segv     * when using modperl as a dso     */    modperl_require_module(aTHX_ "DynaLoader", FALSE);#endif    IoFLUSH_on(PL_stderrgv); /* unbuffer STDERR */}