sv_taint() can easily be replaced by a macro.

p4raw-id: //depot/perl@25876

1 files changed, 2 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 1e6c86a4d2..0fff60910a 100644
--- a/sv.h
+++ b/sv.h
@@ -1034,6 +1034,8 @@ Taints an SV if tainting is enabled.
 =cut
 */
 
+#define sv_taint(sv)	  sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0)
+
 #define SvTAINTED(sv)	  (SvMAGICAL(sv) && sv_tainted(sv))
 #define SvTAINTED_on(sv)  STMT_START{ if(PL_tainting){sv_taint(sv);}   }STMT_END
 #define SvTAINTED_off(sv) STMT_START{ if(PL_tainting){sv_untaint(sv);} }STMT_END