database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-22 02:52:08 +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

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

@ -2109,7 +2109,7 @@ 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 * errors properly. Perhaps it's because there's another level of eval
* inside mksafefunc? * inside mksafefunc?
*/ */
count = perl_call_pv("PostgreSQL::InServer::mkfunc", count = call_pv("PostgreSQL::InServer::mkfunc",
G_SCALAR | G_EVAL | G_KEEPERR); G_SCALAR | G_EVAL | G_KEEPERR);
SPAGAIN; SPAGAIN;
@ -2215,7 +2215,7 @@ plperl_call_perl_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo)
PUTBACK; PUTBACK;
/* Do NOT use G_KEEPERR here */ /* 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; SPAGAIN;
@ -2283,7 +2283,7 @@ plperl_call_perl_trigger_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo,
PUTBACK; PUTBACK;
/* Do NOT use G_KEEPERR here */ /* 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; SPAGAIN;
@ -2346,7 +2346,7 @@ plperl_call_perl_event_trigger_func(plperl_proc_desc *desc,
PUTBACK; PUTBACK;
/* Do NOT use G_KEEPERR here */ /* 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; SPAGAIN;

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

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

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

File diff suppressed because it is too large Load Diff