From: SADAHIRO Tomoyuki <BQW10602@nifty.com>
Date: Wed, 24 Mar 2004 00:16:52 +0000 (+0900)
Subject: sv_pvutf8n_force and sv_pvbyten_force
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46ec2f140c7050c2c6553ebf8e07a3f368560ff0;p=p5sagit%2Fp5-mst-13.2.git

sv_pvutf8n_force and sv_pvbyten_force
Message-Id: <20040324001126.098F.BQW10602@nifty.com>

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

diff --git a/sv.c b/sv.c
index 8e88ae2..c3a5a38 100644
--- a/sv.c
+++ b/sv.c
@@ -7835,8 +7835,10 @@ instead.
 char *
 Perl_sv_pvbyten_force(pTHX_ SV *sv, STRLEN *lp)
 {
+    sv_pvn_force(sv,lp);
     sv_utf8_downgrade(sv,0);
-    return sv_pvn_force(sv,lp);
+    *lp = SvCUR(sv);
+    return SvPVX(sv);
 }
 
 /* sv_pvutf8 () is now a macro using Perl_sv_2pv_flags();
@@ -7884,8 +7886,10 @@ instead.
 char *
 Perl_sv_pvutf8n_force(pTHX_ SV *sv, STRLEN *lp)
 {
+    sv_pvn_force(sv,lp);
     sv_utf8_upgrade(sv);
-    return sv_pvn_force(sv,lp);
+    *lp = SvCUR(sv);
+    return SvPVX(sv);
 }
 
 /*