Rationalise perl header inclusions via a common include file, which also

src/pl/plperl/SPI.xs

@@ -4,12 +4,7 @@
 #undef _
 
 /* perl stuff */
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include "ppport.h"
-
-#include "spi_internal.h"
+#include "plperl.h"
 
 
 /*

src/pl/plperl/plperl.c

@@ -33,7 +33,7 @@
  *	  ENHANCEMENTS, OR MODIFICATIONS.
  *
  * IDENTIFICATION
- *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.98 2005/12/29 14:28:31 adunstan Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.99 2006/01/08 22:27:52 adunstan Exp $
  *
  **********************************************************************/
 
@@ -60,18 +60,7 @@
 extern DLLIMPORT bool check_function_bodies;
 
 /* perl stuff */
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include "ppport.h"
-#include "spi_internal.h"
-
-/* just in case these symbols aren't provided */
-#ifndef pTHX_
-#define pTHX_
-#define pTHX void
-#endif
-
+#include "plperl.h"
 
 /**********************************************************************
  * The information we cache about loaded procedures

src/pl/plperl/plperl.h

@@ -0,0 +1,49 @@
+/*-------------------------------------------------------------------------
+ *
+ * plperl.h
+ *    Common include file for PL/Perl files
+ *
+ * This should be included _AFTER_ postgres.h and system include files
+ *
+ * Portions Copyright (c) 1996-2005, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1995, Regents of the University of California
+ *
+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.h,v 1.1 2006/01/08 22:27:52 adunstan Exp $
+ */
+
+#ifndef PL_PERL_H
+#define PL_PERL_H
+
+/* stop perl headers from hijacking stdio and other stuff on Windows */
+#ifdef WIN32
+#define WIN32IO_IS_STDIO
+#endif 
+
+/* required for perl API */
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+#include "ppport.h"
+
+/* just in case these symbols aren't provided */
+#ifndef pTHX_
+#define pTHX_
+#define pTHX void
+#endif
+
+/* routines from spi_internal.c */
+int			spi_DEBUG(void);
+int			spi_LOG(void);
+int			spi_INFO(void);
+int			spi_NOTICE(void);
+int			spi_WARNING(void);
+int			spi_ERROR(void);
+
+/* routines from plperl.c */
+HV		   *plperl_spi_exec(char *, int);
+void		plperl_return_next(SV *);
+SV		   *plperl_spi_query(char *);
+SV		   *plperl_spi_fetchrow(char *);
+
+
+#endif /* PL_PERL_H */

src/pl/plperl/spi_internal.c

@@ -8,8 +8,8 @@
 /* Defined by Perl */
 #undef _
 
-#include "spi_internal.h"
-
+/* perl stuff */
+#include "plperl.h"
 
 int
 spi_DEBUG(void)

src/pl/plperl/spi_internal.h

@@ -1,22 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include "ppport.h"
-
-int			spi_DEBUG(void);
-
-int			spi_LOG(void);
-
-int			spi_INFO(void);
-
-int			spi_NOTICE(void);
-
-int			spi_WARNING(void);
-
-int			spi_ERROR(void);
-
-/* this is actually in plperl.c */
-HV		   *plperl_spi_exec(char *, int);
-void		plperl_return_next(SV *);
-SV		   *plperl_spi_query(char *);
-SV		   *plperl_spi_fetchrow(char *);