From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 8 Jan 2001 02:24:51 +0000 (+0000)
Subject: Replace #6721, GDBM, system malloc, and LEAKTEST.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53e3a7fbbea8d5be9804b357b16a71acd614d04a;p=p5sagit%2Fp5-mst-13.2.git

Replace #6721, GDBM, system malloc, and LEAKTEST.

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

diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index 13123ef..b4d3b3d 100644
--- a/ext/GDBM_File/GDBM_File.xs
+++ b/ext/GDBM_File/GDBM_File.xs
@@ -56,7 +56,7 @@ not_here(char *s)
 static void
 output_datum(pTHX_ SV *arg, char *str, int size)
 {
-#if !defined(MYMALLOC) || (defined(MYMALLOC) && defined(PERL_POLLUTE_MALLOC) && !defined(LEAKTEST))
+#if (!defined(MYMALLOC) || (defined(MYMALLOC) && defined(PERL_POLLUTE_MALLOC))) && !defined(LEAKTEST)
 	sv_usepvn(arg, str, size);
 #else
 	sv_setpvn(arg, str, size);