stas 2002/12/08 23:28:02
Modified: src/modules/perl modperl_config.c
Log:
call modperl_trace_level_set() to pick MOD_PERL_TRACE env var if any only
once, which is for the main server. don't repeat the call for vhosts.
it'd be much better to move it to the modperl_register_hooks function,
but we have no server object there.
Revision Changes Path
1.59 +4 -2 modperl-2.0/src/modules/perl/modperl_config.c
Index: modperl_config.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_config.c,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- modperl_config.c 6 Dec 2002 04:22:30 -0000 1.58
+++ modperl_config.c 9 Dec 2002 07:28:02 -0000 1.59
@@ -166,8 +166,10 @@
/* give a chance to MOD_PERL_TRACE env var to set PerlTrace. This
* place is the earliest point in mod_perl configuration
- * parsing */
- modperl_trace_level_set(s, NULL);
+ * parsing, when we have the server object */
+ if (!s->is_virtual) {
+ modperl_trace_level_set(s, NULL);
+ }
#ifdef USE_ITHREADS
