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 */
