apr_pool_tag(server_pool, "mod_perl server pool");
int modperl_hook_init(apr_pool_t *pconf, apr_pool_t *plog,                       apr_pool_t *ptemp, server_rec *s){    if (MP_IS_STARTING || MP_IS_RUNNING) {        return OK;    }    MP_init_status = 1; /* now starting */    apr_pool_create(&server_pool, pconf);    modperl_sys_init();    apr_pool_cleanup_register(pconf, NULL,                              modperl_sys_term, apr_pool_cleanup_null);    modperl_init(s, pconf);    return OK;}