From 5fc32deacd7d2eaba1f29c61703ea618e4b42998 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 15 Apr 2007 23:33:13 +0000
Subject: [PATCH] fix casting warning in pp_ord()

p4raw-id: //depot/perl@30965
---
 pp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pp.c b/pp.c
index 3df0209..f532c59 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;
 }
-- 
2.7.4