Not all sbrks return zeroed memory.

diff --git a/malloc.c b/malloc.c
index f5b9f076a0585eaf675a99e9b42ac7ba8efe40ec..680b73454b01cf3fb324abebe8ee3b24852cc139 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -367,10 +367,8 @@ morecore(bucket)
                op->ov_next = (union overhead *)((caddr_t)op + siz);
                op = (union overhead *)((caddr_t)op + siz);
        }
-#if defined(USE_PERL_SBRK) || defined(OS2)
-       /* all real sbrks return zeroe-d memory, perl's sbrk doesn't guarantee this */
+       /* Not all sbrks return zeroed memory.*/
        op->ov_next = (union overhead *)NULL;
-#endif
 #ifdef PACK_MALLOC
        if (bucket == 7 - 3) {  /* Special case, explanation is above. */
            union overhead *n_op = nextf[7 - 3]->ov_next;