Placate nervous compilers that see longer than ints switch()ing.

p4raw-id: //depot/perl@7671

diff --git a/utf8.c b/utf8.c
index 8ce0d21..6ddf42b 100644 (file)
--- 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;