From 814e08e895a037e3f5485000db5964cd68dbfa01 Mon Sep 17 00:00:00 2001 From: Alvaro Herrera Date: Mon, 19 Mar 2012 17:29:05 -0300 Subject: [PATCH] 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 --- src/pl/plperl/plperl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index fb23ae2d93..7a92f3d8e2 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -2062,7 +2062,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"); -- 2.40.0