chr(0xFFFFFFFF) didn't translate to utf8 character

p4raw-id: //depot/perl@2040

diff --git a/pp.c b/pp.c
index 14c8a25..430e7a2 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2136,7 +2136,7 @@ PP(pp_chr)
 {
     djSP; dTARGET;
     char *tmps;
-    I32 value = POPi;
+    U32 value = POPu;
 
     (void)SvUPGRADE(TARG,SVt_PV);