From: Alvaro Herrera <alvherre@alvh.no-ip.org>
Date: Mon, 19 Mar 2012 20:29:05 +0000 (-0300)
Subject: plperl: Package-qualify _TD
X-Git-Url: http://git.postgresql.org/gitweb/static/developers.postgresql.org?a=commitdiff_plain;h=bceef1bcbefec400e35789c3ffb9fbdd1ee534d9;p=users%2Frhaas%2Fpostgres.git

plperl: Package-qualify _TD

Failing to do so causes trigger invocation to fail when they are nested
within a function invocation that changes the current package.

Backpatch to 9.1; previous releases used a different method to obtain
_TD.  Per bug report from Mark Murawski (bug #6511)

Author: Alex Hunsaker
---

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 8ae5a627e4..b31e965ab5 100644
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -2061,7 +2061,7 @@ plperl_call_perl_trigger_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo,
 	ENTER;
 	SAVETMPS;
 
-	TDsv = get_sv("_TD", 0);
+	TDsv = get_sv("main::_TD", 0);
 	if (!TDsv)
 		elog(ERROR, "couldn't fetch $_TD");