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);