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,