X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9a265e59ce486ba81d4c53a5dd1e167baf7e65e7..aae9cea0a2be05abb857e6b2b32773d3d5fae6d8:/mathoms.c

diff --git a/mathoms.c b/mathoms.c
index d58beb8..f165ba4 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -36,6 +36,19 @@ Perl_ref(pTHX_ OP *o, I32 type)
     return doref(o, type, TRUE);
 }
 
+/*
+=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);
+}
+
 /* sv_2iv() is now a macro using Perl_sv_2iv_flags();
  * this function provided for binary compatibility only
  */