dougm 01/09/15 15:26:57
Modified: src/modules/perl mod_perl.c mod_perl.h
Log:
add modperl_hook_child_init
call modperl_perl_init_ids from modperl_hook_child_init
Revision Changes Path
1.68 +12 -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.67
retrieving revision 1.68
diff -u -r1.67 -r1.68
--- mod_perl.c 2001/09/13 03:18:27 1.67
+++ mod_perl.c 2001/09/15 22:26:57 1.68
@@ -352,6 +352,15 @@
return OK;
}
+static void modperl_hook_child_init(apr_pool_t *p, server_rec *s)
+{
+#ifdef USE_ITHREADS
+ /*XXX*/
+#else
+ modperl_perl_init_ids(aTHX);
+#endif
+}
+
void modperl_register_hooks(apr_pool_t *p)
{
ap_hook_open_logs(modperl_hook_init,
@@ -391,6 +400,9 @@
ap_hook_header_parser(modperl_hook_header_parser,
NULL, NULL, APR_HOOK_FIRST);
+
+ ap_hook_child_init(modperl_hook_child_init,
+ NULL, NULL, APR_HOOK_MIDDLE);
modperl_register_handler_hooks();
}
1.36 +1 -0 modperl-2.0/src/modules/perl/mod_perl.h
Index: mod_perl.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.h,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- mod_perl.h 2001/08/19 17:22:55 1.35
+++ mod_perl.h 2001/09/15 22:26:57 1.36
@@ -34,6 +34,7 @@
#include "modperl_global.h"
#include "modperl_env.h"
#include "modperl_cgi.h"
+#include "modperl_perl.h"
void modperl_init(server_rec *s, apr_pool_t *p);
void modperl_hook_init(apr_pool_t *pconf, apr_pool_t *plog,
