mirror of
https://github.com/postgres/postgres.git
synced 2025-05-24 00:03:23 -04:00
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
This commit is contained in:
parent
02b183acb4
commit
814e08e895
@ -2062,7 +2062,7 @@ plperl_call_perl_trigger_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo,
|
|||||||
ENTER;
|
ENTER;
|
||||||
SAVETMPS;
|
SAVETMPS;
|
||||||
|
|
||||||
TDsv = get_sv("_TD", 0);
|
TDsv = get_sv("main::_TD", 0);
|
||||||
if (!TDsv)
|
if (!TDsv)
|
||||||
elog(ERROR, "couldn't fetch $_TD");
|
elog(ERROR, "couldn't fetch $_TD");
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user