diff options
| author | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2012-03-19 17:29:05 -0300 |
|---|---|---|
| committer | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2012-03-19 17:38:40 -0300 |
| commit | bceef1bcbefec400e35789c3ffb9fbdd1ee534d9 (patch) | |
| tree | a91d7100a3c0354b9ee771d35849b877b13aa01d /src | |
| parent | 28155746150f584e8147e2e3f68fec8c0d819cbf (diff) | |
| download | postgresql-bceef1bcbefec400e35789c3ffb9fbdd1ee534d9.tar.gz postgresql-bceef1bcbefec400e35789c3ffb9fbdd1ee534d9.zip | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/plperl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 8ae5a627e46..b31e965ab5a 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"); |