Stop perl from hijacking stdio and other stuff on Windows.

diff --git a/src/pl/plperl/SPI.xs b/src/pl/plperl/SPI.xs
index 7e71e77adef0f12e092879b0658eafd7e128a9bf..3c009e3b83ff4cadd673216d815227ddf35beb91 100644 (file)
--- 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 83f77a7f6dce60cd8e56bb4762cb112b2efad12e..c14e6eb60f937a9d842fe7ef8db2c01ec78f6283 100644 (file)
--- 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 390e76a7e7752a626cd8208dae39b461e002604d..b3948b56ca9bcc37252a716f1ddf3dc71ca89ee9 100644 (file)
--- 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"