summaryrefslogtreecommitdiff
path: root/ext/GDBM_File
diff options
context:
space:
mode:
authorH.Merijn Brand <h.m.brand@xs4all.nl>2002-09-23 20:33:12 +0200
committerhv <hv@crypt.org>2002-09-26 08:16:43 +0000
commit7bab3ede7bf671f54f0d8f3d55d015d9c9882812 (patch)
treec955efd9da330d34eed618bb2ab9ac7e8a9e6034 /ext/GDBM_File
parente6604a4dbe27f47e1c7f869847acedb8b382cb8f (diff)
downloadperl-7bab3ede7bf671f54f0d8f3d55d015d9c9882812.tar.gz
LEAKTEST is dead, RIP
Subject: Re: [perl #17197] SIGSEGV in perl 5.8.0 multithread build with -DLEAKTEST From: "H.Merijn Brand" <h.m.brand@hccnet.nl> Message-Id: <20020923182824.C7B6.H.M.BRAND@hccnet.nl> p4raw-id: //depot/perl@17920
Diffstat (limited to 'ext/GDBM_File')
-rw-r--r--ext/GDBM_File/GDBM_File.xs2
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index 22350fd692..34acd79536 100644
--- a/ext/GDBM_File/GDBM_File.xs
+++ b/ext/GDBM_File/GDBM_File.xs
@@ -39,7 +39,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)))
sv_usepvn(arg, str, size);
#else
sv_setpvn(arg, str, size);