Silence 5 "possible loss of data" warnings from VC6

p4raw-id: //depot/perl@31055

1 files changed, 1 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index 5d381bcb75..3c80bd2197 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1726,7 +1726,7 @@ Perl_swash_fetch(pTHX_ SV *swash, const U8 *ptr, bool do_utf8)
 	}
 
 	PL_last_swash_hv = hv;
-	PL_last_swash_klen = klen;
+	PL_last_swash_klen = (U8)klen;
 	/* FIXME change interpvar.h?  */
 	PL_last_swash_tmps = (U8 *) tmps;
 	PL_last_swash_slen = slen;