database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-10 09:21:54 +03:00
Code

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

Browse Source 
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:21 +00:00
parent ba2fc7eb4b
commit 2299ceab1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/pl/plperl/plperl.c
View File

@ -33,7 +33,7 @@
* ENHANCEMENTS, OR MODIFICATIONS. * ENHANCEMENTS, OR MODIFICATIONS.
* *
* IDENTIFICATION * 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 * errors properly. Perhaps it's because there's another level of
* eval inside mksafefunc? * eval inside mksafefunc?
*/ */
count = perl_call_pv((trusted ? "mksafefunc" : "mkunsafefunc"), count = perl_call_pv((trusted ? "::mksafefunc" : "::mkunsafefunc"),
G_SCALAR | G_EVAL | G_KEEPERR); G_SCALAR | G_EVAL | G_KEEPERR);
SPAGAIN; SPAGAIN;