Perl_form(aTHX_ "Perl/v%vd", PL_patchlevel));
Perl_form(aTHX_ MP_PERL_VERSION_STAMP, PL_patchlevel));
static int modperl_hook_post_config_last(apr_pool_t *pconf, apr_pool_t *plog,                                         apr_pool_t *ptemp, server_rec *s){    /* in the threaded environment, no server_rec/process_rec     * modifications should be done beyond this point */#ifdef USE_ITHREADS    MP_dSCFG(s);    dTHXa(scfg->mip->parent->perl);#endif    if (!modperl_post_config_require(s, pconf)) {        exit(1);    }    if (modperl_threaded_mpm()) {        MP_threads_started = 1;    }    MP_post_post_config_phase = 1;#ifdef MP_TRACE    /* httpd core open_logs handler re-opens s->error_log, which might     * change, even though it still points to the same physical file     * (.e.g on win32 the filehandle will be different. Therefore     * reset the tracing logfile setting here, since this is the     * earliest place, happening after the open_logs phase.     *     * Moreover, we need to dup the filehandle so that when the server     * shuts down, we will be able to log to error_log after Apache     * has closed it (which happens too early for our likening).     */    {        apr_file_t *dup;        MP_RUN_CROAK(apr_file_dup(&dup, s->error_log, pconf),                     "mod_perl core post_config");        modperl_trace_logfile_set(dup);    }#endif    ap_add_version_component(pconf, MP_VERSION_STRING);    ap_add_version_component(pconf,                             Perl_form(aTHX_ "Perl/v%vd", PL_patchlevel));    modperl_mgv_hash_handlers(pconf, s);    modperl_modglobal_hash_keys(aTHX);    modperl_env_hash_keys(aTHX);#ifdef USE_ITHREADS    modperl_init_clones(s, pconf);#endif#ifdef MP_NEED_HASH_SEED_FIXUP    ap_log_error(APLOG_MARK, APLOG_INFO, 0, s,                 "mod_perl: using Perl HASH_SEED: %"UVuf, MP_init_hash_seed);#endif    return OK;}