diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2009-06-04 16:01:03 +0000 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2009-06-04 16:01:03 +0000 |
| commit | 279e744ddc0866054489acdb8a713eb104e1aa85 (patch) | |
| tree | 8e415db0e62805925300360f55cf45f026488c95 /src | |
| parent | 1d3942e152a27bd937ecbb13e02a328bf1285308 (diff) | |
Initialise perl library as documented in perl API. Backpatch to release 7.4.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/plperl.c | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index a3ab05b4f85..86d47a2f12d 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -33,7 +33,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.67.4.8 2007/11/22 17:47:46 tgl Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.67.4.9 2009/06/04 16:01:03 adunstan Exp $ * **********************************************************************/ @@ -210,6 +210,8 @@ plperl_init_interp(void) "sub ::mkunsafefunc {return eval(qq[ sub { $_[0] $_[1] } ]); }" }; + int nargs = 3; + #ifdef WIN32 /* @@ -249,12 +251,16 @@ plperl_init_interp(void) #endif +#ifdef PERL_SYS_INIT3 + PERL_SYS_INIT3(&nargs, (char ***) &embedding, NULL); +#endif + plperl_interp = perl_alloc(); if (!plperl_interp) elog(ERROR, "could not allocate Perl interpreter"); perl_construct(plperl_interp); - perl_parse(plperl_interp, plperl_init_shared_libs, 3, embedding, NULL); + perl_parse(plperl_interp, plperl_init_shared_libs, nargs, embedding, NULL); perl_run(plperl_interp); /************************************************************ @@ -307,7 +313,6 @@ plperl_init_interp(void) } - static void plperl_safe_init(void) { |