X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=bec0a82f725f55636cebe26a5eb90bdab80f4ad1;hb=a6c71b5b9462db13c7bb2cd263cee5995315784c;hp=721cfb9c34b7553113338f847ed6cea679cffe4e;hpb=ed79a026b5aec9cc3f786c2971aa15a4b21f396c;p=p5sagit%2Fp5-mst-13.2.git

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;
 }