This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
hv_max may be a few too many
authorGisle Aas <gisle@aas.no>
Sat, 4 Jul 1998 09:28:46 +0000 (11:28 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 5 Jul 1998 01:36:45 +0000 (01:36 +0000)
Message-ID: <m3d8bmoz0x.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@1312

doop.c

diff --git a/doop.c b/doop.c
index 8239c33..702aaf8 100644 (file)
--- 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)) {