dougm 01/09/15 18:05:44 Modified: src/modules/perl mod_perl.c modperl_perl.c modperl_perl.h Log: move code out of modperl_hook_child_init into modperl_perl_init_ids_server Revision Changes Path 1.70 +1 -9 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.69 retrieving revision 1.70 diff -u -r1.69 -r1.70 --- mod_perl.c 2001/09/16 00:56:15 1.69 +++ mod_perl.c 2001/09/16 01:05:44 1.70 @@ -354,15 +354,7 @@ static void modperl_hook_child_init(apr_pool_t *p, server_rec *s) { - modperl_perl_ids_t ids; - modperl_perl_ids_get(&ids); -#ifdef USE_ITHREADS - modperl_interp_mip_walk_servers(NULL, s, - modperl_perl_init_ids_mip, - (void*)&ids); -#else - modperl_perl_init_ids(aTHX_ &ids); -#endif + modperl_perl_init_ids_server(s); } void modperl_register_hooks(apr_pool_t *p) 1.3 +13 -0 modperl-2.0/src/modules/perl/modperl_perl.c Index: modperl_perl.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.c,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- modperl_perl.c 2001/09/16 00:56:15 1.2 +++ modperl_perl.c 2001/09/16 01:05:44 1.3 @@ -38,3 +38,16 @@ modperl_perl_init_ids(aTHX_ (modperl_perl_ids_t *)data); return APR_SUCCESS; } + +void modperl_perl_init_ids_server(server_rec *s) +{ + modperl_perl_ids_t ids; + modperl_perl_ids_get(&ids); +#ifdef USE_ITHREADS + modperl_interp_mip_walk_servers(NULL, s, + modperl_perl_init_ids_mip, + (void*)&ids); +#else + modperl_perl_init_ids(aTHX_ &ids); +#endif +} 1.3 +2 -0 modperl-2.0/src/modules/perl/modperl_perl.h Index: modperl_perl.h =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.h,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- modperl_perl.h 2001/09/16 00:56:15 1.2 +++ modperl_perl.h 2001/09/16 01:05:44 1.3 @@ -14,4 +14,6 @@ apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip, void *data); +void modperl_perl_init_ids_server(server_rec *s); + #endif /* MODPERL_PERL_H */