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

[dougm]

dougm       2002/09/04 10:56:51

  Modified:    src/modules/perl mod_perl.c
  Log:
  make sure MP_init_done is reset when we teardown.
  (should only matter for static linkage, but doesn't hurt with dso)
  
  Revision  Changes    Path
  1.137     +4 -2      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.136
  retrieving revision 1.137
  diff -u -r1.136 -r1.137
  --- mod_perl.c        4 Sep 2002 17:51:02 -0000       1.136
  +++ mod_perl.c        4 Sep 2002 17:56:50 -0000       1.137
  @@ -354,8 +354,12 @@
       return APR_SUCCESS;
   }
   
  +static int MP_init_done = 0;
  +
   static apr_status_t modperl_sys_term(void *data)
   {
  +    MP_init_done = 0;
  +
       modperl_env_unload();
   
       modperl_perl_pp_unset_all();
  @@ -365,8 +369,6 @@
   #endif
       return APR_SUCCESS;
   }
  -
  -static int MP_init_done = 0;
   
   int modperl_hook_init(apr_pool_t *pconf, apr_pool_t *plog, 
                         apr_pool_t *ptemp, server_rec *s)