fix casting warning in pp_ord()

p4raw-id: //depot/perl@30965

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 3df0209e87..f532c5987b 100644
--- 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;
 }