From: Radu Greab <radu@netsoft.ro>
Date: Sun, 20 Aug 2000 18:03:26 +0000 (+0300)
Subject: (Replaced by #8364.)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9ed37a55efe438d301b76c101698924f3ffba70;p=p5sagit%2Fp5-mst-13.2.git

(Replaced by #8364.)

Subject: Re: [ID 20000819.002] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6707 on i686-linux 2.2.5-16 (UNINSTALLED)
Message-ID: <Pine.LNX.4.10.10008201753260.1292-100000@busy.netsoft.ro>

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

diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index 870f056..13123ef 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))
+#if !defined(MYMALLOC) || (defined(MYMALLOC) && defined(PERL_POLLUTE_MALLOC) && !defined(LEAKTEST))
 	sv_usepvn(arg, str, size);
 #else
 	sv_setpvn(arg, str, size);