diff options
author | Gisle Aas <gisle@aas.no> | 1998-07-04 11:28:46 +0200 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 01:36:45 +0000 |
commit | 8ed4b6723befcaa6a7915091a3de5084c49b6b16 (patch) | |
tree | 326b925a12542d50a3f4e45c54cc2ca76d698683 /doop.c | |
parent | 7231175158f8ebe4d4c89fd774d89f1e9de28649 (diff) | |
download | perl-8ed4b6723befcaa6a7915091a3de5084c49b6b16.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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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)) { |