if (modperl_require_file( requires[i]->perl, requires[i]->file, TRUE)){
int modperl_config_apply_PerlPostConfigRequire(server_rec *s,                                               modperl_config_srv_t *scfg,                                               apr_pool_t *p){    modperl_require_file_t **requires;    int i;    requires = (modperl_require_file_t **)scfg->PerlPostConfigRequire->elts;    for (i = 0; i < scfg->PerlPostConfigRequire->nelts; i++){        if (modperl_require_file( requires[i]->perl, requires[i]->file, TRUE)){            MP_TRACE_d(MP_FUNC, "loaded Perl file: %s for server %s\n",                       requires[i]->file, modperl_server_desc(s,p));        }        else {            ap_log_error(APLOG_MARK, APLOG_ERR, 0, s,                         "Can't load Perl file: %s for server %s, exiting...",                         requires[i]->file, modperl_server_desc(s,p));            return FALSE;        }    }    return TRUE;}