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

[dougm]

dougm       01/10/20 10:38:16

  Modified:    src/modules/perl modperl_env.c
  Log:
  comment out Perl_magic_setenv reference that breaks win32 (not currently being used 
anyhow)
  
  Revision  Changes    Path
  1.17      +5 -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.16
  retrieving revision 1.17
  diff -u -r1.16 -r1.17
  --- modperl_env.c     2001/10/14 18:00:23     1.16
  +++ modperl_env.c     2001/10/20 17:38:16     1.17
  @@ -173,7 +173,12 @@
   
   void modperl_env_request_untie(pTHX_ request_rec *r)
   {
  +#if 0
  +    /* XXX: not currently in use.  if enabled Perl_magic_setenv
  +     * is not available to win32
  +     */
       PL_vtbl_envelem.svt_set = MEMBER_TO_FPTR(Perl_magic_setenv);
  +#endif
   #ifdef MP_PERL_HV_GMAGICAL_AWARE
       SvGMAGICAL_off((SV*)ENVHV);
       PL_vtbl_envelem.svt_get = 0;