stas 2002/12/19 23:23:00
Modified: src/modules/perl modperl_cmd.c
. Changes
Log:
when reporting "too late for something", print the config file and the
line number
Revision Changes Path
1.35 +5 -2 modperl-2.0/src/modules/perl/modperl_cmd.c
Index: modperl_cmd.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.c,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- modperl_cmd.c 12 Dec 2002 11:45:26 -0000 1.34
+++ modperl_cmd.c 20 Dec 2002 07:23:00 -0000 1.35
@@ -8,8 +8,11 @@
static char *modperl_cmd_too_late(cmd_parms *parms)
{
- return apr_pstrcat(parms->pool, "mod_perl is already running, "
- "too late for ", parms->cmd->name, NULL);
+ return apr_psprintf(parms->pool,
+ "mod_perl is already running, too late for %s (%s:%d)",
+ parms->cmd->name,
+ parms->directive->filename,
+ parms->directive->line_num);
}
char *modperl_cmd_push_handlers(MpAV **handlers, const char *name,
1.86 +3 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -r1.85 -r1.86
--- Changes 17 Dec 2002 07:15:46 -0000 1.85
+++ Changes 20 Dec 2002 07:23:00 -0000 1.86
@@ -10,6 +10,9 @@
=item 1.99_08-dev
+when reporting "too late for something", print the config file and the
+line number [Stas]
+
fix $r->read to read all the requested amount of data if possible,
adjust the test TestApache::read to verify that [Stas]