rdelaage/postgresql
1
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-10-01 17:11:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
cturner@redhat.com.
This commit is contained in:
Tom Lane 2002-01-24 21:40:44 +00:00
parent 3f5d3ceed0
commit 989b7d66d8
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/pl/plperl/plperl.c
View File

@ -33,7 +33,7 @@
* ENHANCEMENTS, OR MODIFICATIONS. * ENHANCEMENTS, OR MODIFICATIONS.
* *
* IDENTIFICATION * 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 "EXTERN.h"
#include "perl.h" #include "perl.h"
#include "XSUB.h"
#include "ppport.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 * 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 plperl_proc_desc *compile_plperl_function(Oid fn_oid, bool is_trigger);
static SV *plperl_build_tuple_argument(HeapTuple tuple, TupleDesc tupdesc); 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_C void boot_DynaLoader(pTHX_ CV* cv);
extern void boot_SPI _((CV * cv)); EXTERN_C void boot_SPI(pTHX_ CV* cv);
static void static void
plperl_init_shared_libs(void) plperl_init_shared_libs(pTHX)
{ {
char *file = __FILE__; char *file = __FILE__;