From: Gisle Aas <gisle@aas.no>
Date: Sat, 4 Jul 1998 09:28:46 +0000 (+0200)
Subject: hv_max may be a few too many
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ed4b6723befcaa6a7915091a3de5084c49b6b16;p=p5sagit%2Fp5-mst-13.2.git

hv_max may be a few too many
	Message-ID: <m3d8bmoz0x.fsf@furu.g.aas.no>

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

diff --git a/doop.c b/doop.c
index 8239c33..702aaf8 100644
--- a/doop.c
+++ b/doop.c
@@ -502,8 +502,7 @@ do_kv(ARGSproto)
 	RETURN;
     }
 
-    /* Guess how much room we need.  hv_max may be a few too many.  Oh well. */
-    EXTEND(SP, HvMAX(keys) * (dokeys + dovalues));
+    EXTEND(SP, HvKEYS(keys) * (dokeys + dovalues));
 
     PUTBACK;	/* hv_iternext and hv_iterval might clobber stack_sp */
     while (entry = hv_iternext(keys)) {