Tweak plperl.c to compile against threaded Perls, per report from

cturner@redhat.com.

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index a37f59781f9cf0801fc733520789b775538a81bf..c6d5875b7e337afc539369afbd5b1a376e87c1b3 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -33,7 +33,7 @@
  *       ENHANCEMENTS, OR MODIFICATIONS.
  *
  * IDENTIFICATION
- *       $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.27 2002/01/24 16:53:42 tgl Exp $
+ *       $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.28 2002/01/24 21:40:44 tgl Exp $
  *
  **********************************************************************/
 
@@ -80,8 +80,15 @@
 
 #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
+
 
 /**********************************************************************
  * The information we cache about loaded procedures
@@ -124,7 +131,7 @@ static Datum plperl_func_handler(PG_FUNCTION_ARGS);
 static plperl_proc_desc *compile_plperl_function(Oid fn_oid, bool is_trigger);
 
 static SV  *plperl_build_tuple_argument(HeapTuple tuple, TupleDesc tupdesc);
-static void plperl_init_shared_libs(void);
+static void plperl_init_shared_libs(pTHX);
 
 
 /*
@@ -350,11 +357,11 @@ plperl_create_sub(char *s, bool trusted)
  *
  **********************************************************************/
 
-extern void boot_DynaLoader _((CV * cv));
-extern void boot_SPI _((CV * cv));
+EXTERN_C void boot_DynaLoader(pTHX_ CV* cv);
+EXTERN_C void boot_SPI(pTHX_ CV* cv);
 
 static void
-plperl_init_shared_libs(void)
+plperl_init_shared_libs(pTHX)
 {
        char       *file = __FILE__;