From: Tom Lane Date: Sat, 20 Aug 2005 19:19:31 +0000 (+0000) Subject: Invoke mksafefunc and mkunsafefunc with :: decoration. This seems a good X-Git-Tag: REL8_0_4~28 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=01bc28d48ab92aeae264ce711030f01a1fb0a722;p=thirdparty%2Fpostgresql.git Invoke mksafefunc and mkunsafefunc with :: decoration. This seems a good idea on consistency grounds, whether or not it really fixes bug #1831. Michael Fuhr --- diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 118e02df842..83f77a7f6dc 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.67.4.2 2005/07/03 21:56:27 tgl Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.67.4.3 2005/08/20 19:19:31 tgl Exp $ * **********************************************************************/ @@ -591,7 +591,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;