cvs commit: modperl-2.0/src/modules/perl mod_perl.c mod_perl.h

[dougm]

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,