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

[dougm]

dougm       01/09/28 11:34:30

  Modified:    src/modules/perl mod_perl.c modperl_env.c modperl_env.h
  Log:
  clear %ENV at startup
  
  Revision  Changes    Path
  1.82      +2 -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.81
  retrieving revision 1.82
  diff -u -r1.81 -r1.82
  --- mod_perl.c        2001/09/28 17:27:45     1.81
  +++ mod_perl.c        2001/09/28 18:34:30     1.82
  @@ -35,6 +35,8 @@
       dTHX; /* XXX: not too worried since this only happens at startup */
       int i;
   
  +    modperl_env_clear(aTHX);
  +
       modperl_env_default_populate(aTHX);
   
       for (i=0; MP_xs_loaders[i]; i++) {
  
  
  
  1.12      +12 -0     modperl-2.0/src/modules/perl/modperl_env.c
  
  Index: modperl_env.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_env.c,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- modperl_env.c     2001/09/28 17:27:45     1.11
  +++ modperl_env.c     2001/09/28 18:34:30     1.12
  @@ -39,6 +39,18 @@
       { NULL }
   };
   
  +void modperl_env_clear(pTHX)
  +{
  +    HV *hv = ENVHV;
  +    U32 mg_flags;
  +
  +    modperl_env_untie(mg_flags);
  +
  +    hv_clear(hv);
  +
  +    modperl_env_tie(mg_flags);
  +}
  +
   void modperl_env_default_populate(pTHX)
   {
       HV *hv = ENVHV;
  
  
  
  1.7       +2 -0      modperl-2.0/src/modules/perl/modperl_env.h
  
  Index: modperl_env.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_env.h,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- modperl_env.h     2001/09/28 17:15:08     1.6
  +++ modperl_env.h     2001/09/28 18:34:30     1.7
  @@ -12,6 +12,8 @@
   #define modperl_env_tie(mg_flags) \
       SvFLAGS((SV*)ENVHV) |= mg_flags
   
  +void modperl_env_clear(pTHX);
  +
   void modperl_env_default_populate(pTHX);
   
   void modperl_env_request_populate(pTHX_ request_rec *r);