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

[stas]

stas        2002/11/25 14:47:40

  Modified:    src/modules/perl modperl_filter.c
  Log:
  add a few debug trace prints
  
  Revision  Changes    Path
  1.40      +6 -0      modperl-2.0/src/modules/perl/modperl_filter.c
  
  Index: modperl_filter.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_filter.c,v
  retrieving revision 1.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- modperl_filter.c  25 Nov 2002 22:46:29 -0000      1.39
  +++ modperl_filter.c  25 Nov 2002 22:47:39 -0000      1.40
  @@ -470,6 +470,9 @@
               ctx = (modperl_filter_ctx_t *)apr_pcalloc(c->pool, sizeof(*ctx));
               ctx->handler = handlers[i];
               addfunc(name, (void*)ctx, NULL, c);
  +
  +            MP_TRACE_h(MP_FUNC, "%s handler %s configured (connection)\n",
  +                       type, handlers[i]->name);
           }
   
           return OK;
  @@ -529,6 +532,9 @@
               ctx = (modperl_filter_ctx_t *)apr_pcalloc(r->pool, sizeof(*ctx));
               ctx->handler = handlers[i];
               addfunc(name, (void*)ctx, r, r->connection);
  +
  +            MP_TRACE_h(MP_FUNC, "%s handler %s configured (%s)\n",
  +                       type, handlers[i]->name, r->uri);
           }
   
           return OK;