mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2025-02-23 19:39:53 +08:00
Code Issues Packages Projects Releases Wiki 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
Show Stats 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;

3
src/pl/plperl/plperl.h
View File

@ -164,9 +164,6 @@
#endif
/* perl version and platform portability */
#define NEED_eval_pv
#define NEED_newRV_noinc
#define NEED_sv_2pv_flags
#include "ppport.h"
/*

17952
src/pl/plperl/ppport.h
View File

File diff suppressed because it is too large Load Diff