dougm 00/04/15 17:53:33
Modified: src/modules/perl modperl_config.c
Log:
PerlInterp* commands can only be at the top-level
Revision Changes Path
1.3 +2 -0 modperl-2.0/src/modules/perl/modperl_config.c
Index: modperl_config.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_config.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- modperl_config.c 2000/04/16 00:35:32 1.2
+++ modperl_config.c 2000/04/16 00:53:33 1.3
@@ -63,6 +63,8 @@
{ \
MP_dSCFG(parms->server); \
int item = atoi(arg); \
+ const char *err = ap_check_cmd_context(parms, GLOBAL_ONLY); \
+ if (err) return err; \
scfg->interp_pool_cfg->##item = item; \
MP_TRACE_d(MP_FUNC, "%s %d\n", parms->cmd->name, item); \
return NULL; \
