From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 11 Mar 2001 18:15:44 +0000 (+0000)
Subject: Put utf8_downgrade in CRIPPLED_CC versions of SvPVbyte* before I forget.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffebcc3e6acf9636047196271385e91b0490ae34;hp=38e01200a459ddde320bc183e649514489a7e488;p=p5sagit%2Fp5-mst-13.2.git

Put utf8_downgrade in CRIPPLED_CC versions of SvPVbyte* before I forget.

p4raw-id: //depot/perlio@9104
---

diff --git a/sv.c b/sv.c
index fa3b29e..0a2c2c0 100644
--- a/sv.c
+++ b/sv.c
@@ -3032,9 +3032,8 @@ Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok)
 	    }
 	    SvCUR(sv) = len;
 	}
-	SvUTF8_off(sv);
     }
-
+    SvUTF8_off(sv);
     return TRUE;
 }
 
@@ -6153,18 +6152,21 @@ Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp)
 char *
 Perl_sv_pvbyte(pTHX_ SV *sv)
 {
+    sv_utf8_downgrade(sv,0);
     return sv_pv(sv);
 }
 
 char *
 Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp)
 {
+    sv_utf8_downgrade(sv,0);
     return sv_pvn(sv,lp);
 }
 
 char *
 Perl_sv_pvbyten_force(pTHX_ SV *sv, STRLEN *lp)
 {
+    sv_utf8_downgrade(sv,0);
     return sv_pvn_force(sv,lp);
 }