From: kmx <kmx@volny.cz>
Date: Mon, 18 Jan 2010 17:39:22 +0000 (+0000)
Subject: [perl #71676] GDBM_File support on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e46b65adca4157c2051f70b4a08ab0f3b5fcf840;p=p5sagit%2Fp5-mst-13.2.git

[perl #71676] GDBM_File support on Win32

Date: Thu, 07 Jan 2010 00:36:25 -0800
Message-ID: <rt-3.6.HEAD-1505-1262853384-1207.71676-15-0@perl.org>

Tweaked as suggested in:

From: "H.Merijn Brand" <h.m.brand@xs4all.nl>
Date: Fri, 8 Jan 2010 13:35:17 +0100
Message-ID: <20100108133517.1f2916d3@pc09.procura.nl>
---

diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index 5f88223..d1f99e2 100644
--- a/ext/GDBM_File/GDBM_File.xs
+++ b/ext/GDBM_File/GDBM_File.xs
@@ -40,6 +40,7 @@ static void
 output_datum(pTHX_ SV *arg, char *str, int size)
 {
 	sv_setpvn(arg, str, size);
+#	undef free
 	free(str);
 }