diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-21 19:22:00 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-22 16:10:00 +0000 |
| commit | 77b7876f031d35ba2fd89257c6bcaa395e15bbb9 (patch) | |
| tree | df6b60caecef5b8bfd6f4e98bf1b6a73ef68831d | |
| parent | c75ab21a94d99a03945b25b8b1543b7a345f7e80 (diff) | |
| download | perl-77b7876f031d35ba2fd89257c6bcaa395e15bbb9.tar.gz | |
Use the system's free to dealloc a PV allocated by the system
(more precisely by libgdbm.) See :
Subject: GDBM_file realloc failures
Message-ID: <20051121182200.0b3d2454@grubert.mandrakesoft.com>
p4raw-id: //depot/perl@26193
| -rw-r--r-- | ext/GDBM_File/GDBM_File.xs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs index 34acd79536..5f88223eb7 100644 --- a/ext/GDBM_File/GDBM_File.xs +++ b/ext/GDBM_File/GDBM_File.xs @@ -39,12 +39,8 @@ not_here(char *s) static void output_datum(pTHX_ SV *arg, char *str, int size) { -#if (!defined(MYMALLOC) || (defined(MYMALLOC) && defined(PERL_POLLUTE_MALLOC))) - sv_usepvn(arg, str, size); -#else sv_setpvn(arg, str, size); - safesysfree(str); -#endif + free(str); } /* Versions of gdbm prior to 1.7x might not have the gdbm_sync, |