cvs commit: modperl-2.0/src/modules/perl mod_perl.c

[stas]

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");