format problem

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

p4raw-id: //depot/perl@14570

1 files changed, 1 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index 60933cde80..2afcbeb787 100644
--- 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;
 	     }
 	 }