From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 12 Aug 2001 23:05:14 +0000 (+0000)
Subject: Unnecessary downgrades.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68de02dd13dd306ab38a3120f53d4d0e47862ec5;p=p5sagit%2Fp5-mst-13.2.git

Unnecessary downgrades.

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

diff --git a/doop.c b/doop.c
index 8c61398..560dbe2 100644
--- a/doop.c
+++ b/doop.c
@@ -386,9 +386,6 @@ S_do_trans_simple_utf8(pTHX_ SV *sv)/* SPC - OK */
     }
     SvSETMAGIC(sv);
     SvUTF8_on(sv);
-    /* Downgrading just 'cos it will is suspect - NI-S */
-    if (!isutf8 && !(PL_hints & HINT_UTF8))
-	sv_utf8_downgrade(sv, TRUE);
 
     return matches;
 }
@@ -590,8 +587,6 @@ S_do_trans_complex_utf8(pTHX_ SV *sv) /* SPC - NOT OK */
 	SvCUR_set(sv, d - dstart);
     }
     SvUTF8_on(sv);
-    if (!isutf8 && !(PL_hints & HINT_UTF8))
-	sv_utf8_downgrade(sv, TRUE);
     SvSETMAGIC(sv);
 
     return matches;