fix casting warning in pp_ord()
Dave Mitchell [Sun, 15 Apr 2007 23:33:13 +0000 (23:33 +0000)]
p4raw-id: //depot/perl@30965

pp.c

diff --git a/pp.c b/pp.c
index 3df0209..f532c59 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3357,7 +3357,7 @@ PP(pp_ord)
 
     XPUSHu(DO_UTF8(argsv) ?
           utf8n_to_uvchr(s, UTF8_MAXBYTES, 0, UTF8_ALLOW_ANYUV) :
-          (*s & 0xff));
+          (UV)(*s & 0xff));
 
     RETURN;
 }