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

[stas]

stas        2003/09/18 00:58:46

  Modified:    src/modules/perl modperl_mgv.c
  Log:
  include the output of pid/tid in the trace
  
  Revision  Changes    Path
  1.27      +2 -1      modperl-2.0/src/modules/perl/modperl_mgv.c
  
  Index: modperl_mgv.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
  retrieving revision 1.26
  retrieving revision 1.27
  diff -u -u -r1.26 -r1.27
  --- modperl_mgv.c     16 Sep 2003 01:57:27 -0000      1.26
  +++ modperl_mgv.c     18 Sep 2003 07:58:46 -0000      1.27
  @@ -293,7 +293,8 @@
           modperl_mgv_append(aTHX_ p, handler->mgv_cv, handler_name);
     
           MpHandlerPARSED_On(handler);
  -        MP_TRACE_h(MP_FUNC, "found `%s' in class `%s' as a %s\n",
  +        MP_TRACE_h(MP_FUNC, "[%s] found `%s' in class `%s' as a %s\n",
  +                   modperl_pid_tid(p),
                      handler_name, HvNAME(stash),
                      MpHandlerMETHOD(handler) ? "method" : "function");
           MODPERL_MGV_DEEP_RESOLVE(handler, p);