Since: #define SvTAINTED_on(sv) STMT_START{ if(PL_tainting){sv_taint(sv);} }STMT_END SvTAINTED_on marks an SV as tainted *only* if tainting is enabled. --- sv.h.orig 2003-08-29 17:07:16.000000000 -0700 +++ sv.h 2003-08-29 17:07:56.000000000 -0700 @@ -822,7 +822,7 @@ not. =for apidoc Am|void|SvTAINTED_on|SV* sv -Marks an SV as tainted. +Marks an SV as tainted if tainting is enabled. =for apidoc Am|void|SvTAINTED_off|SV* sv Untaints an SV. Be I<very> careful with this routine, as it short-circuits __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:stas@stason.org http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com