pv_uni_display () omitted backslash in output string

p4raw-id: //depot/perl@34416

1 files changed, 1 insertions, 0 deletions

diff --git a/utf8.c b/utf8.c
index 3b5d5d4a9c..6939a4d94c 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);
 		 }
 	     }