From c3fbb29af1dd039d12fa65f0dc334e804a3883fc Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 12 Oct 2000 16:40:47 +0000
Subject: (submitted on behalf of Jarkko)        Fix the lib/encode.t subtest 6
 failure as reported by Andreas        Koenig, gmagical substr() wasn't
 propagating UTF8ness.  The bug        was unearthed by change 7182, as was a
 bug in HTML::Entities.

p4raw-id: //depot/perl@7202
---
 mg.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mg.c b/mg.c
index 721cfb9c34..bec0a82f72 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;
 }
 
-- 
cgit v1.2.1