From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 27 Feb 2000 14:21:16 +0000 (+0000)
Subject: propagate utf8ness in sv_setsv() (from Gisle Aas)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4e86e0f0c3be53056766cf9081a449e60f2fb28;p=p5sagit%2Fp5-mst-13.2.git

propagate utf8ness in sv_setsv() (from Gisle Aas)

p4raw-id: //depot/perl@5283
---

diff --git a/sv.c b/sv.c
index 2f5ea0b..46a9908 100644
--- a/sv.c
+++ b/sv.c
@@ -2758,6 +2758,11 @@ Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
 	    SvPV_set(dstr, SvPVX(sstr));
 	    SvLEN_set(dstr, SvLEN(sstr));
 	    SvCUR_set(dstr, SvCUR(sstr));
+	    if (SvUTF8(sstr))
+		SvUTF8_on(dstr);
+	    else
+		SvUTF8_off(dstr);
+
 	    SvTEMP_off(dstr);
 	    (void)SvOK_off(sstr);
 	    SvPV_set(sstr, Nullch);