This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pv_uni_display () omitted backslash in output string
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 25 Sep 2008 11:55:49 +0000 (11:55 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 25 Sep 2008 11:55:49 +0000 (11:55 +0000)
p4raw-id: //depot/perl@34416

utf8.c

diff --git a/utf8.c b/utf8.c
index 3b5d5d4..6939a4d 100644 (file)
--- 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);
                 }
             }