another test of the Emergency Broadcast System--back out

change#7202

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

p4raw-id: //depot/perl@7203

diff --git a/mg.c b/mg.c
index bec0a82..721cfb9 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1425,8 +1425,6 @@ 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;
 }