database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-12-13 14:22:43 +03:00
Code Activity

plperl: update ppport.h to Perl 5.34.0.

Browse Source 
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

Discussion: https://postgr.es/m/87y278s6iq.fsf@wibble.ilmari.org
This commit is contained in:
Tom Lane
2021-10-07 13:59:43 -04:00
parent 972c7c6567
commit 05798c9f7f
3 changed files with 14408 additions and 3557 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/pl/plperl/plperl.c
View File

@@ -2109,8 +2109,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)
@@ -2215,7 +2215,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;
@@ -2283,7 +2283,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;
@@ -2346,7 +2346,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;