stas 2003/10/22 18:14:22
Modified: src/modules/perl mod_perl.c Log: if a server has no mod_perl config data, skip it as soon as possible Revision Changes Path 1.200 +5 -5 modperl-2.0/src/modules/perl/mod_perl.c Index: mod_perl.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v retrieving revision 1.199 retrieving revision 1.200 diff -u -u -r1.199 -r1.200 --- mod_perl.c 23 Oct 2003 01:13:29 -0000 1.199 +++ mod_perl.c 23 Oct 2003 01:14:22 -0000 1.200 @@ -344,6 +344,11 @@ PerlInterpreter *perl; const char *vhost = modperl_server_desc(s, p); + if (!scfg) { + MP_TRACE_i(MP_FUNC, "server %s has no mod_perl config\n", vhost); + return OK; + } + if (base_server == NULL) { base_server = modperl_global_get_server_rec(); } @@ -364,11 +369,6 @@ #else perl = base_perl = base_scfg->perl; #endif /* USE_ITHREADS */ - - if (!scfg) { - MP_TRACE_i(MP_FUNC, "server %s has no mod_perl config\n", vhost); - return OK; - } #ifdef USE_ITHREADS