stas        2003/08/20 16:13:28

  Modified:    xs/Apache/RequestIO Apache__RequestIO.h
  Log:
  and more tracing
  
  Revision  Changes    Path
  1.38      +13 -0     modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h
  
  Index: Apache__RequestIO.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h,v
  retrieving revision 1.37
  retrieving revision 1.38
  diff -u -r1.37 -r1.38
  --- Apache__RequestIO.h       14 Mar 2003 05:33:19 -0000      1.37
  +++ Apache__RequestIO.h       20 Aug 2003 23:13:28 -0000      1.38
  @@ -23,6 +23,10 @@
   #define mpxs_output_flush(r, rcfg) \
       /* if ($|) */ \
       if (IoFLUSH(PL_defoutgv)) { \
  +        MP_TRACE_o(MP_FUNC, "(flush) %d bytes [%s]", \
  +                   rcfg->wbucket->outcnt, \
  +                   apr_pstrmemdup(rcfg->wbucket->pool, rcfg->wbucket->outbuf, \
  +                                  rcfg->wbucket->outcnt)); \
           MP_FAILURE_CROAK(modperl_wbucket_flush(rcfg->wbucket, TRUE)); \
       }
   
  @@ -96,6 +100,9 @@
       bytes = SvCUR(sv);
   
       MP_CHECK_WBUCKET_INIT("$r->printf");
  +
  +    MP_TRACE_o(MP_FUNC, "%d bytes [%s]", bytes, SvPVX(sv));
  +
       MP_FAILURE_CROAK(modperl_wbucket_write(aTHX_ rcfg->wbucket,
                                              SvPVX(sv), &bytes));
       
  @@ -149,6 +156,10 @@
       rcfg = modperl_config_req_get(r);
   
       MP_CHECK_WBUCKET_INIT("$r->rflush");
  +    MP_TRACE_o(MP_FUNC, "%d bytes [%s]",
  +               rcfg->wbucket->outcnt,
  +               apr_pstrmemdup(rcfg->wbucket->pool, rcfg->wbucket->outbuf,
  +                              rcfg->wbucket->outcnt));
       MP_FAILURE_CROAK(modperl_wbucket_flush(rcfg->wbucket, TRUE));
   
       return APR_SUCCESS;
  @@ -242,6 +253,8 @@
           sv_setpvn(buffer, "", 0);
       }
   
  +    MP_TRACE_o(MP_FUNC, "%d bytes [%s]", total, SvPVX(buffer));
  + 
       return total;
   }
   
  
  
  

Reply via email to