diff options
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 de61c06a9d0..c87715f34be 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -2098,8 +2098,8 @@ plperl_create_sub(plperl_proc_desc *prodesc, 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) @@ -2206,7 +2206,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; @@ -2274,7 +2274,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; @@ -2337,7 +2337,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; |