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