From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Thu, 22 Nov 2007 17:47:32 +0000 (+0000)
Subject: Prevent Perl from introducing a possibly-incompatible definition of type
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=b28d013b9b3c70024e79ec4d831d22725a1d4201;p=users%2Fbernd%2Fpostgres.git

Prevent Perl from introducing a possibly-incompatible definition of type
"bool" into plperl.c.  This has always been a hazard since Perl allows a
platform-specific choice to define bool as int rather than char, but
evidently this didn't happen on any platform we support ... until OS X 10.5.
Per report from Brandon Maust.

Back-patch as far as 8.0 --- a bit arbitrary, but it seems unlikely anyone
will be trying to port 7.x onto new platforms.
---

diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h
index 4996497ce4..f955dccf6d 100644
--- a/src/pl/plperl/plperl.h
+++ b/src/pl/plperl/plperl.h
@@ -38,6 +38,11 @@
 #define pTHX void
 #endif
 
+/* perl may have a different width of "bool", don't buy it */
+#ifdef bool
+#undef bool
+#endif
+
 /* routines from spi_internal.c */
 int			spi_DEBUG(void);
 int			spi_LOG(void);