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:
parent
ba2fc7eb4b
commit
2299ceab1c
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user