From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 13 Nov 2000 05:30:48 +0000 (+0000)
Subject: Placate nervous compilers that see longer than ints switch()ing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9faf8d75b36b5058433b7bc0eebfb6e8674b88c7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;