stas 2003/08/20 16:12:43
Modified: xs modperl_xs_util.h
Log:
more tracing
Revision Changes Path
1.16 +1 -0 modperl-2.0/xs/modperl_xs_util.h
Index: modperl_xs_util.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/modperl_xs_util.h,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- modperl_xs_util.h 3 Apr 2003 06:39:48 -0000 1.15
+++ modperl_xs_util.h 20 Aug 2003 23:12:43 -0000 1.16
@@ -84,6 +84,7 @@
while (MARK <= SP) { \
apr_ssize_t wlen; \
char *buf = SvPV(*MARK, wlen); \
+ MP_TRACE_o(MP_FUNC, "%d bytes [%s]", wlen, buf); \
apr_status_t rv = func(aTHX_ obj, buf, &wlen); \
if (rv != APR_SUCCESS) { \
Perl_croak(aTHX_ modperl_apr_strerror(rv)); \
