From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 25 Sep 2008 11:55:49 +0000 (+0000)
Subject: pv_uni_display () omitted backslash in output string
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce0834da0562c5f3c9382d676f504c04cfaeeedd;p=p5sagit%2Fp5-mst-13.2.git

pv_uni_display () omitted backslash in output string

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

diff --git a/utf8.c b/utf8.c
index 3b5d5d4..6939a4d 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2288,6 +2288,7 @@ Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV f
 		 }
 		 if (ok) {
 		     const char string = ok;
+		     sv_catpvn(dsv, "\\",    1);
 		     sv_catpvn(dsv, &string, 1);
 		 }
 	     }