summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorGisle Aas <gisle@aas.no>1998-07-04 11:28:46 +0200
committerGurusamy Sarathy <gsar@cpan.org>1998-07-05 01:36:45 +0000
commitf6d6cbcbbab3dd82b69dfca8c6bac6e98eee356b (patch)
tree326b925a12542d50a3f4e45c54cc2ca76d698683 /doop.c
parenta35a095cbb267d6ac97b3d9962ddb0501a8fc110 (diff)
downloadperl-f6d6cbcbbab3dd82b69dfca8c6bac6e98eee356b.tar.gz
hv_max may be a few too many
Message-ID: <m3d8bmoz0x.fsf@furu.g.aas.no> p4raw-id: //depot/perl@1312
Diffstat (limited to 'doop.c')
-rw-r--r--doop.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/doop.c b/doop.c
index 8239c33c7c..702aaf85e5 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)) {