Avoid the need for 2 casts added in 31055 by using a better type for

the local variable. Add an assertion that another cast is not a data
loss (and that there is no buffer overflow)

p4raw-id: //depot/perl@31069

1 files changed, 1 insertions, 0 deletions

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