1 files changed, 1 insertions, 1 deletions
diff --git a/utf8.c b/utf8.c
index 8ce0d216a1..6ddf42bf5c 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1089,7 +1089,7 @@ Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr)
 	    Copy(ptr, PL_last_swash_key, klen, U8);
     }
 
-    switch ((slen << 3) / needents) {
+    switch ((int)((slen << 3) / needents)) {
     case 1:
 	bit = 1 << (off & 7);
 	off >>= 3;