diff options
author | Tom Lane <tgl@sss.pgh.pa.us> | 2022-01-31 15:01:05 -0500 |
---|---|---|
committer | Tom Lane <tgl@sss.pgh.pa.us> | 2022-01-31 15:01:05 -0500 |
commit | 0a7ded19b4cdf5fd9c758583461a81fed66c144a (patch) | |
tree | 384d308423b221d6417f10411f3bde4ef6b0d5bf /src/pl/plperl/plperl.c | |
parent | bb82e8a0bd044cbae1eb608b9a61f0a92efa681a (diff) | |
download | postgresql-0a7ded19b4cdf5fd9c758583461a81fed66c144a.tar.gz |
plperl: update ppport.h to Perl 5.34.0.
Also apply the changes suggested by running
perl ppport.h --compat-version=5.8.0
And remove some no-longer-required NEED_foo declarations.
Dagfinn Ilmari Mannsåker
Back-patch of commit 05798c9f7 into all supported branches.
At the time we thought this update was mostly cosmetic, but the
lack of it has caused trouble, while the patch itself hasn't.
Discussion: https://postgr.es/m/87y278s6iq.fsf@wibble.ilmari.org
Discussion: https://postgr.es/m/20220131015130.shn6wr2fzuymerf6@alap3.anarazel.de
Diffstat (limited to 'src/pl/plperl/plperl.c')
-rw-r--r-- | src/pl/plperl/plperl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 98024a0df6..5ac4401834 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -2132,8 +2132,8 @@ plperl_create_sub(plperl_proc_desc *prodesc, const char *s, Oid fn_oid) * errors properly. Perhaps it's because there's another level of eval * inside mksafefunc? */ - count = perl_call_pv("PostgreSQL::InServer::mkfunc", - G_SCALAR | G_EVAL | G_KEEPERR); + count = call_pv("PostgreSQL::InServer::mkfunc", + G_SCALAR | G_EVAL | G_KEEPERR); SPAGAIN; if (count == 1) @@ -2240,7 +2240,7 @@ plperl_call_perl_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo) PUTBACK; /* Do NOT use G_KEEPERR here */ - count = perl_call_sv(desc->reference, G_SCALAR | G_EVAL); + count = call_sv(desc->reference, G_SCALAR | G_EVAL); SPAGAIN; @@ -2308,7 +2308,7 @@ plperl_call_perl_trigger_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo, PUTBACK; /* Do NOT use G_KEEPERR here */ - count = perl_call_sv(desc->reference, G_SCALAR | G_EVAL); + count = call_sv(desc->reference, G_SCALAR | G_EVAL); SPAGAIN; @@ -2371,7 +2371,7 @@ plperl_call_perl_event_trigger_func(plperl_proc_desc *desc, PUTBACK; /* Do NOT use G_KEEPERR here */ - count = perl_call_sv(desc->reference, G_SCALAR | G_EVAL); + count = call_sv(desc->reference, G_SCALAR | G_EVAL); SPAGAIN; |