diff options
| author | Radu Greab <radu@netsoft.ro> | 2000-08-20 21:03:26 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-20 19:43:54 +0000 |
| commit | e9ed37a55efe438d301b76c101698924f3ffba70 (patch) | |
| tree | 020f9f748259b07633e567237c6c8d562aa8795d /ext/GDBM_File/GDBM_File.xs | |
| parent | 6aa016ca806d78082f3fdac943515dc35707c664 (diff) | |
| download | perl-e9ed37a55efe438d301b76c101698924f3ffba70.tar.gz | |
(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
Diffstat (limited to 'ext/GDBM_File/GDBM_File.xs')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs index 870f056c9b..13123ef540 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); |