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

[dougm]

dougm       01/09/28 12:26:37

  Modified:    src/modules/perl modperl_env.h
  Log:
  use new MP_magical_ macros for modperl_env_{tie,untie}
  
  Revision  Changes    Path
  1.8       +2 -3      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.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- modperl_env.h     2001/09/28 18:34:30     1.7
  +++ modperl_env.h     2001/09/28 19:26:37     1.8
  @@ -6,11 +6,10 @@
   #endif
   
   #define modperl_env_untie(mg_flags) \
  -    mg_flags = SvMAGICAL((SV*)ENVHV); \
  -    SvMAGICAL_off((SV*)ENVHV)
  +    MP_magical_untie(ENVHV, mg_flags)
   
   #define modperl_env_tie(mg_flags) \
  -    SvFLAGS((SV*)ENVHV) |= mg_flags
  +    MP_magical_tie(ENVHV, mg_flags)
   
   void modperl_env_clear(pTHX);