From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 21 Nov 2005 18:22:00 +0000 (+0100)
Subject: Use the system's free to dealloc a PV allocated by the system
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77b7876f031d35ba2fd89257c6bcaa395e15bbb9;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index 34acd79..5f88223 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,