sv_taint() can easily be replaced by a macro.

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index b5b8f95..a15149c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -8336,19 +8336,6 @@ Perl_sv_unref(pTHX_ SV *sv)
 }
 
 /*
-=for apidoc sv_taint
-
-Taint an SV. Use C<SvTAINTED_on> instead.
-=cut
-*/
-
-void
-Perl_sv_taint(pTHX_ SV *sv)
-{
-    sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0);
-}
-
-/*
 =for apidoc sv_untaint
 
 Untaint an SV. Use C<SvTAINTED_off> instead.