1
0
mirror of https://github.com/postgres/postgres.git synced 2025-08-24 09:27:52 +03:00

Invoke mksafefunc and mkunsafefunc with :: decoration. This seems a good

idea on consistency grounds, whether or not it really fixes bug #1831.
Michael Fuhr
This commit is contained in:
Tom Lane
2005-08-20 19:19:31 +00:00
parent f468542b10
commit 01bc28d48a

View File

@@ -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;