diff options
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -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); |