1 files changed, 0 insertions, 4 deletions
diff --git a/sv.c b/sv.c
index a2df6f5811..0aebda2f62 100644
--- a/sv.c
+++ b/sv.c
@@ -4583,13 +4583,9 @@ Perl_sv_sethek(pTHX_ register SV *const sv, const HEK *const hek)
             return;
 	}
         {
-	    /* Emulate what sv_usepvn_flags does; it can't be called
-	       directly, because it assumes that the data for the PV is at the
-	       start of a malloced block */
 	    SV_CHECK_THINKFIRST_COW_DROP(sv);
 	    SvUPGRADE(sv, SVt_PV);
 	    SvPV_set(sv,(char *)HEK_KEY(share_hek_hek(hek)));
-	    SvTAINT(sv);
 	    SvCUR_set(sv, HEK_LEN(hek));
 	    SvLEN_set(sv, 0);
 	    SvREADONLY_on(sv);