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 6299adf71ad..1c77211ac45 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -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; |