X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=0d87fab069fbb6d385ef2452905d2e4ac695c464;hb=8222d950c8d6de1b5e2b0ab47462f5dfd4bdf782;hp=b5e9fbfa53244129d0d73fcaef9cdaf378864a83;hpb=b2ff9928c77b24737570b67197be87aa48019afe;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/dump.c b/dump.c
index b5e9fbf..0d87fab 100644
--- a/dump.c
+++ b/dump.c
@@ -143,13 +143,13 @@ Perl_pv_display(pTHX_ SV *dsv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
 }
 
 char *
-Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags)
+Perl_pv_uni_display(pTHX_ SV *dsv, U8 *spv, STRLEN len, STRLEN pvlim, UV flags)
 {
     int truncated = 0;
     char *s, *e;
 
     sv_setpvn(dsv, "", 0);
-    for (s = SvPVX(ssv), e = s + SvCUR(ssv); s < e; s += UTF8SKIP(s)) {
+    for (s = (char *)spv, e = s + len; s < e; s += UTF8SKIP(s)) {
 	 UV u;
 	 if (pvlim && SvCUR(dsv) >= pvlim) {
 	      truncated++;
@@ -165,6 +165,13 @@ Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags)
 }
 
 char *
+Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags)
+{
+  return Perl_pv_uni_display(aTHX_ dsv, (U8*)SvPVX(ssv), SvCUR(ssv),
+			     pvlim, flags);
+}
+
+char *
 Perl_sv_peek(pTHX_ SV *sv)
 {
     SV *t = sv_newmortal();