From: Andrew Dunstan <andrew@dunslane.net>
Date: Thu, 4 Jun 2009 15:59:55 +0000 (+0000)
Subject: Initialise perl library as documented in perl API. Backpatch to release 7.4.
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=09fdf4b7da3ed97d099c4c62e88657cd14f50a51;p=users%2Fsimon%2Fpostgres.git

Initialise perl library as documented in perl API. Backpatch to release 7.4.
---

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)