Default to allocating the correct size for the array in the HV.

Override this with -DPERL_USE_LARGE_HV_ALLOC

p4raw-id: //depot/perl@24497

1 files changed, 4 insertions, 1 deletions

diff --git a/hv.h b/hv.h
index 963317ec5b..e39e4bfd7d 100644
--- a/hv.h
+++ b/hv.h
@@ -305,7 +305,10 @@ C<SV*>.
 #define HEK_REHASH_on(hek)	(HEK_FLAGS(hek) |= HVhek_REHASH)
 
 /* calculate HV array allocation */
-#if defined(STRANGE_MALLOC) || defined(MYMALLOC)
+#ifndef PERL_USE_LARGE_HV_ALLOC
+/* Default to allocating the correct size - default to assuming that malloc()
+   is not broken and is efficient at allocating blocks sized at powers-of-two.
+*/   
 #  define PERL_HV_ARRAY_ALLOC_BYTES(size) ((size) * sizeof(HE*))
 #else
 #  define MALLOC_OVERHEAD 16