git.postgresql.org Git - postgresql.git/commitdiff

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c

index 377758e001b51d8d61cd14ef4c550be965f19e7c..4abbdeae2069fa5a55072c4bbef02de27afa3bb5 100644 (file)

--- a/src/pl/plperl/plperl.c

+++ b/src/pl/plperl/plperl.c

/**********************************************************************

* plperl.c - perl as a procedural language for PostgreSQL

*

- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.148 2009年06月05日 20:32:00 adunstan Exp $

+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.149 2009年06月06日 03:45:36 tgl Exp $

*

**********************************************************************/

static char *embedding[3] = {

"", "-e", PERLBOOT

};

-

int nargs = 3;

- char *dummy_perl_env[1] = { NULL };

-

#ifdef WIN32

/*

#if defined(PERL_SYS_INIT3) && !defined(MYMALLOC)

/* only call this the first time through, as per perlembed man page */

if (interp_state == INTERP_NONE)

- PERL_SYS_INIT3(&nargs, (char ***) &embedding, (char***)&dummy_perl_env);

+ {

+ char *dummy_env[1] = { NULL };

+

+ PERL_SYS_INIT3(&nargs, (char ***) &embedding, (char ***) &dummy_env);

+ }

#endif

plperl_held_interp = perl_alloc();