From: Robin Barker <RMBarker@cpan.org>
Date: Wed, 6 Feb 2002 14:01:43 +0000 (+0000)
Subject: format problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c4547fe91306627634f7dd6526eed3a43460162;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	     }
 	 }