perl problems in RC1

If the installed perl is built with threads support, plperl won't
build. Here is a fix for dealing properly with this, by Chip Turner
(cturner(at)redhat(dot)com)

--- postgresql-7.2rc1/src/pl/plperl/plperl.c.back Wed Jan 23 15:08:32 2002
+++ postgresql-7.2rc1/src/pl/plperl/plperl.c Wed Jan 23 15:34:49 2002
@@ -80,6 +80,7 @@

#include "EXTERN.h"
#include "perl.h"
+#include "XSUB.h"
#include "ppport.h"


@@ -124,7 +125,7 @@
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 +351,11 @@
*
**********************************************************************/

-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__;

--
Trond Eivind Glomsrød
Red Hat, Inc.