mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-09-05 11:19:19 +02:00
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
This commit is contained in:
parent
bb82e8a0bd
commit
0a7ded19b4
@ -2132,7 +2132,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;
|
||||||
|
|
||||||
@ -2240,7 +2240,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;
|
||||||
|
|
||||||
@ -2308,7 +2308,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;
|
||||||
|
|
||||||
@ -2371,7 +2371,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;
|
||||||
|
|
||||||
|
@ -163,9 +163,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
17810
src/pl/plperl/ppport.h
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user