stas 2003/10/22 18:07:58
Modified: src/modules/perl mod_perl.c Log: add trace for which perl starts Revision Changes Path 1.195 +15 -0 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.194 retrieving revision 1.195 diff -u -u -r1.194 -r1.195 --- mod_perl.c 23 Oct 2003 01:05:49 -0000 1.194 +++ mod_perl.c 23 Oct 2003 01:07:58 -0000 1.195 @@ -231,6 +231,21 @@ } } +#ifdef MP_TRACE + { + server_rec *base_server = modperl_global_get_server_rec(); + const char *desc = modperl_server_desc(s, p); + if (base_server == s) { + MP_TRACE_i(MP_FUNC, + "starting the parent perl for the base server\n", desc); + } + else { + MP_TRACE_i(MP_FUNC, + "starting the parent perl for vhost %s\n", desc); + } + } +#endif + #ifdef MP_USE_GTOP MP_TRACE_m_do( modperl_gtop_do_proc_mem_before(MP_FUNC, "perl_parse");