From 09fdf4b7da3ed97d099c4c62e88657cd14f50a51 Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Thu, 4 Jun 2009 15:59:55 +0000 Subject: [PATCH] Initialise perl library as documented in perl API. Backpatch to release 7.4. --- src/pl/plperl/plperl.c | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 2127a2369f..9aa92bb3be 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -399,6 +399,8 @@ plperl_init_interp(void) "", "-e", PERLBOOT }; + int nargs = 3; + #ifdef WIN32 /* @@ -442,13 +444,19 @@ plperl_init_interp(void) #endif +#ifdef PERL_SYS_INIT3 + /* only call this the first time through, as per perlembed man page */ + if (interp_state == INTERP_NONE) + PERL_SYS_INIT3(&nargs, (char ***) &embedding, NULL); +#endif + plperl_held_interp = perl_alloc(); if (!plperl_held_interp) elog(ERROR, "could not allocate Perl interpreter"); perl_construct(plperl_held_interp); perl_parse(plperl_held_interp, plperl_init_shared_libs, - 3, embedding, NULL); + nargs, embedding, NULL); perl_run(plperl_held_interp); if (interp_state == INTERP_NONE) -- 2.39.5