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 0b3d6725f1bee6dff5fb8b98dc02a9baa77519cc..1cd4dce259658ff0d888f35f24a4a39c0c60a47b 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -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"