(retracted by #13919)

p4raw-id: //depot/perl@13917

1 files changed, 1 insertions, 1 deletions

diff --git a/doop.c b/doop.c
index 9f0fa6466a..1a3e9fcb81 100644
--- a/doop.c
+++ b/doop.c
@@ -1318,7 +1318,7 @@ Perl_do_kv(pTHX)
 	}
 
 	if (! SvTIED_mg((SV*)keys, PERL_MAGIC_tied))
-	    i = HvKEYS(keys);
+	    i = (IV)HvKEYS(keys);
 	else {
 	    i = 0;
 	    /*SUPPRESS 560*/