From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 28 Dec 2001 16:57:19 +0000 (+0000)
Subject: (retracted by #13919)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9652cb9da1b744b9c6b69e7593a4ee79bb64657;p=p5sagit%2Fp5-mst-13.2.git

(retracted by #13919)

p4raw-id: //depot/perl@13917
---

diff --git a/doop.c b/doop.c
index 9f0fa64..1a3e9fc 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*/