From 2299ceab1cc5e141431f19eaf70c30f0d84eb28b Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Sat, 20 Aug 2005 19:19:21 +0000 Subject: [PATCH] Invoke mksafefunc and mkunsafefunc with :: decoration. This seems a good idea on consistency grounds, whether or not it really fixes bug #1831. Michael Fuhr --- src/pl/plperl/plperl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 11c0a5bc38..9ca8328140 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -33,7 +33,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.89 2005/08/12 21:26:32 tgl Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.90 2005/08/20 19:19:21 tgl Exp $ * **********************************************************************/ @@ -680,7 +680,7 @@ plperl_create_sub(char *s, bool trusted) * errors properly. Perhaps it's because there's another level of * eval inside mksafefunc? */ - count = perl_call_pv((trusted ? "mksafefunc" : "mkunsafefunc"), + count = perl_call_pv((trusted ? "::mksafefunc" : "::mkunsafefunc"), G_SCALAR | G_EVAL | G_KEEPERR); SPAGAIN; -- 2.40.0