dougm 01/10/10 21:47:30
Modified: src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h
Log:
prevent possible confusion by making it clear <Perl> sections are not yet implemented
Revision Changes Path
1.90 +1 -0 modperl-2.0/src/modules/perl/mod_perl.c
Index: mod_perl.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -r1.89 -r1.90
--- mod_perl.c 2001/10/09 05:50:25 1.89
+++ mod_perl.c 2001/10/11 04:47:30 1.90
@@ -421,6 +421,7 @@
MP_CMD_DIR_ITERATE("PerlInitHandler", init_handlers, "Subroutine name"),
MP_CMD_DIR_TAKE2("PerlSetVar", set_var, "PerlSetVar"),
MP_CMD_DIR_ITERATE2("PerlAddVar", add_var, "PerlAddVar"),
+ MP_CMD_SRV_RAW_ARGS("<Perl", perl, "NOT YET IMPLEMENTED"),
#ifdef MP_TRACE
MP_CMD_SRV_TAKE1("PerlTrace", trace, "Trace level"),
#endif
1.14 +5 -0 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.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- modperl_cmd.c 2001/10/06 19:43:40 1.13
+++ modperl_cmd.c 2001/10/11 04:47:30 1.14
@@ -125,6 +125,11 @@
return modperl_cmd_post_read_request_handlers(parms, mconfig, arg);
}
+MP_CMD_SRV_DECLARE(perl)
+{
+ return "<Perl> sections not yet implemented in modperl-2.0";
+}
+
#ifdef MP_COMPAT_1X
MP_CMD_SRV_DECLARE_FLAG(taint_check)
1.16 +5 -0 modperl-2.0/src/modules/perl/modperl_cmd.h
Index: modperl_cmd.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.h,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- modperl_cmd.h 2001/10/06 19:43:40 1.15
+++ modperl_cmd.h 2001/10/11 04:47:30 1.16
@@ -24,6 +24,7 @@
MP_CMD_SRV_DECLARE2(add_var);
MP_CMD_SRV_DECLARE(options);
MP_CMD_SRV_DECLARE(init_handlers);
+MP_CMD_SRV_DECLARE(perl);
#ifdef MP_COMPAT_1X
@@ -58,6 +59,10 @@
(scfg->interp_scope == MP_INTERP_SCOPE_CONNECTION)
#endif
+
+#define MP_CMD_SRV_RAW_ARGS(name, item, desc) \
+ AP_INIT_RAW_ARGS( name, modperl_cmd_##item, NULL, \
+ RSRC_CONF, desc )
#define MP_CMD_SRV_FLAG(name, item, desc) \
AP_INIT_FLAG( name, modperl_cmd_##item, NULL, \
