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