perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl mod_perl.c modperl_perl.c modperl_perl.h
Date Sun, 16 Sep 2001 01:05:44 GMT
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 */
  
  
  

Mime
View raw message