format problem

Message-Id: <200202061401.OAA25053@tempest.npl.co.uk>

p4raw-id: //depot/perl@14570

diff --git a/utf8.c b/utf8.c
index 60933cd..2afcbeb 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1725,7 +1725,7 @@ Perl_pv_uni_display(pTHX_ SV *dsv, U8 *spv, STRLEN len, STRLEN pvlim, UV flags)
             }
             /* isPRINT() is the locale-blind version. */
             if (!ok && (flags & UNI_DISPLAY_ISPRINT) && isPRINT(u & 0xFF)) {
-                Perl_sv_catpvf(aTHX_ dsv, "%c", u);
+                Perl_sv_catpvf(aTHX_ dsv, "%c", (char)(u & 0xFF));
                 ok = TRUE;
             }
         }