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 d1de68eb6bc..60d097070e5 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -2111,8 +2111,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) @@ -2217,7 +2217,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; @@ -2285,7 +2285,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; @@ -2348,7 +2348,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; |