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; }