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 8d14f093b72dbbfdc912c65e4aeb9c442a96cf40..5bcff1fc142f3eb151bf46e9bd816506119f1317 100644 (file)
--- a/src/pl/plperl/SPI.xs
+++ b/src/pl/plperl/SPI.xs
@@ -4,6 +4,12 @@
 #undef _
 
 /* 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 3f181e3fa768733c9a29dd6ab53a6f9d25e42f5f..94295b9d0ddf44077877f2496ce6c1c9249454b2 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -57,6 +57,12 @@
 #include "mb/pg_wchar.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 c022d7d9e57e28af08a3281b70febd4b63b63525..e7f9c20f7be447dac9a9dab328a23280908c36f8 100644 (file)
--- a/src/pl/plperl/spi_internal.c
+++ b/src/pl/plperl/spi_internal.c
@@ -8,6 +8,12 @@
 /* Defined by Perl */
 #undef _
 
+
+/* stop perl from hijacking stdio and other stuff */
+#ifdef WIN32
+#define WIN32IO_IS_STDIO
+#endif 
+
 #include "spi_internal.h"