From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 18 Feb 1999 21:03:06 +0000 (+0000)
Subject: missing PERL_POLLUTE_MALLOC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08cdc9a35d157219f769511762b78adf22ca040a;p=p5sagit%2Fp5-mst-13.2.git

missing PERL_POLLUTE_MALLOC

p4raw-id: //depot/perl@2974
---

diff --git a/ext/SDBM_File/sdbm/sdbm.h b/ext/SDBM_File/sdbm/sdbm.h
index 4921de7..4dc1a22 100644
--- a/ext/SDBM_File/sdbm/sdbm.h
+++ b/ext/SDBM_File/sdbm/sdbm.h
@@ -168,8 +168,7 @@ extern long sdbm_hash proto((char *, int));
 /* This comes after <stdlib.h> so we don't try to change the standard
  * library prototypes; we'll use our own instead. */
 
-#if defined(MYMALLOC)
-
+#if defined(MYMALLOC) && !defined(PERL_POLLUTE_MALLOC)
 #  define malloc  Perl_malloc
 #  define calloc  Perl_calloc
 #  define realloc Perl_realloc
@@ -179,7 +178,6 @@ Malloc_t Perl_malloc proto((MEM_SIZE nbytes));
 Malloc_t Perl_calloc proto((MEM_SIZE elements, MEM_SIZE size));
 Malloc_t Perl_realloc proto((Malloc_t where, MEM_SIZE nbytes));
 Free_t   Perl_mfree proto((Malloc_t where));
-
 #endif /* MYMALLOC */
 
 #ifdef I_STRING