From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 12 Oct 2000 18:11:24 +0000 (+0000)
Subject: restore change#7202
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ef4b6742e0ba3a235ff787ef1289fa04447ab83;p=p5sagit%2Fp5-mst-13.2.git

restore change#7202

p4raw-link: @7202 on //depot/perl: c3fbb29af1dd039d12fa65f0dc334e804a3883fc

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

diff --git a/mg.c b/mg.c
index 721cfb9..bec0a82 100644
--- a/mg.c
+++ b/mg.c
@@ -1425,6 +1425,8 @@ Perl_magic_getsubstr(pTHX_ SV *sv, MAGIC *mg)
     if (rem + offs > len)
 	rem = len - offs;
     sv_setpvn(sv, tmps + offs, (STRLEN)rem);
+    if (DO_UTF8(lsv))
+        SvUTF8_on(sv);
     return 0;
 }