From d984548ac906fef75a7996c1aba943ce9edf69de Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Sun, 8 Jan 2006 15:51:19 +0000 Subject: [PATCH] Stop perl from hijacking stdio and other stuff on Windows. --- src/pl/plperl/SPI.xs | 6 ++++++ src/pl/plperl/plperl.c | 8 +++++++- src/pl/plperl/spi_internal.c | 6 ++++++ 3 files changed, 19 insertions(+), 1 deletion(-) diff --git a/src/pl/plperl/SPI.xs b/src/pl/plperl/SPI.xs index 7e71e77adef..3c009e3b83f 100644 --- a/src/pl/plperl/SPI.xs +++ b/src/pl/plperl/SPI.xs @@ -2,6 +2,12 @@ #include "postgres.h" /* perl stuff */ + +/* stop perl from hijacking stdio and other stuff */ +#ifdef WIN32 +#define WIN32IO_IS_STDIO +#endif + #include "EXTERN.h" #include "perl.h" #include "XSUB.h" diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 83f77a7f6dc..c14e6eb60f9 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.67.4.3 2005/08/20 19:19:31 tgl Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.67.4.4 2006/01/08 15:51:18 adunstan Exp $ * **********************************************************************/ @@ -52,6 +52,12 @@ #include "utils/typcache.h" /* perl stuff */ + +/* stop perl from hijacking stdio and other stuff */ +#ifdef WIN32 +#define WIN32IO_IS_STDIO +#endif + #include "EXTERN.h" #include "perl.h" #include "XSUB.h" diff --git a/src/pl/plperl/spi_internal.c b/src/pl/plperl/spi_internal.c index 390e76a7e77..b3948b56ca9 100644 --- a/src/pl/plperl/spi_internal.c +++ b/src/pl/plperl/spi_internal.c @@ -6,6 +6,12 @@ #include "postgres.h" + +/* stop perl from hijacking stdio and other stuff */ +#ifdef WIN32 +#define WIN32IO_IS_STDIO +#endif + #include "spi_internal.h" -- 2.39.5