From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 5 Mar 2001 15:56:35 +0000 (+0000)
Subject: Long-standing "defined but not used" SvPVbyte*() are about to get used
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0875d2fe359ba14e879483eafe95813b77c5da09;p=p5sagit%2Fp5-mst-13.2.git

Long-standing "defined but not used" SvPVbyte*() are about to get used
for auto-downgrade hooks in gethostbyaddr() etc. (as per Camel-III).

Make SvPVbyte*() symmetric with respect to SvPVutf8*() in that:
 - it does a sv_utf8_downgrade (c.f. SvPVutf8's sv_utf8_upgrade())
 - uses SvPV() rather than sv_2pv() in case it isn't a string.

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

diff --git a/sv.c b/sv.c
index 4e75506..d47a2f5 100644
--- a/sv.c
+++ b/sv.c
@@ -2884,7 +2884,8 @@ Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv)
 char *
 Perl_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp)
 {
-    return sv_2pv(sv,lp);
+    sv_utf8_downgrade(sv,0);
+    return SvPV(sv,*lp);
 }
 
 char *