diff options
| author | Tom Lane | 2007-11-22 17:47:40 +0000 |
|---|---|---|
| committer | Tom Lane | 2007-11-22 17:47:40 +0000 |
| commit | 80848c001d69ecec6aca6cf2392c7e59b9b5fc38 (patch) | |
| tree | ef1a20be9efb176aeb625e22f3bf5d7c0b51d505 | |
| parent | 9275f2d34c6430e039d99a6b42545604096691ff (diff) | |
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.
| -rw-r--r-- | src/pl/plperl/plperl.c | 7 | ||||
| -rw-r--r-- | src/pl/plperl/spi_internal.h | 5 |
2 files changed, 11 insertions, 1 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 356f9f1231d..519f0b31093 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -33,7 +33,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.94.2.6 2007/06/28 17:50:17 tgl Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.94.2.7 2007/11/22 17:47:40 tgl Exp $ * **********************************************************************/ @@ -76,6 +76,11 @@ #define pTHX void #endif +/* perl may have a different width of "bool", don't buy it */ +#ifdef bool +#undef bool +#endif + /********************************************************************** * The information we cache about loaded procedures diff --git a/src/pl/plperl/spi_internal.h b/src/pl/plperl/spi_internal.h index 4d2c407ee16..c4d1aa3f06a 100644 --- a/src/pl/plperl/spi_internal.h +++ b/src/pl/plperl/spi_internal.h @@ -3,6 +3,11 @@ #include "XSUB.h" #include "ppport.h" +/* perl may have a different width of "bool", don't buy it */ +#ifdef bool +#undef bool +#endif + int spi_DEBUG(void); int spi_LOG(void); |