stas 2003/08/20 16:11:23
Modified: src/modules/perl modperl_util.h
Log:
better tracing
Revision Changes Path
1.45 +1 -1 modperl-2.0/src/modules/perl/modperl_util.h
Index: modperl_util.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.h,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- modperl_util.h 19 Aug 2003 05:01:22 -0000 1.44
+++ modperl_util.h 20 Aug 2003 23:11:23 -0000 1.45
@@ -60,7 +60,7 @@
/* check whether the response phase has been initialized already */
#define MP_CHECK_WBUCKET_INIT(func) \
if (!rcfg->wbucket) { \
- Perl_croak(aTHX_ func " can't be called before the response phase"); \
+ Perl_croak(aTHX_ "%s: " func " can't be called before the response phase",
MP_FUNC); \
}
/* turn off cgi header parsing. in case we are already inside
