diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2005-08-20 19:19:31 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2005-08-20 19:19:31 +0000 |
| commit | 01bc28d48ab92aeae264ce711030f01a1fb0a722 (patch) | |
| tree | 4c3e8939e59c6a8bbf440e09acf25bb29ad129a1 | |
| parent | f468542b10df6c1d3405f9b48dca8592f82022c8 (diff) | |
| download | postgresql-01bc28d48ab92aeae264ce711030f01a1fb0a722.tar.gz postgresql-01bc28d48ab92aeae264ce711030f01a1fb0a722.zip | |
Invoke mksafefunc and mkunsafefunc with :: decoration. This seems a good
idea on consistency grounds, whether or not it really fixes bug #1831.
Michael Fuhr
| -rw-r--r-- | src/pl/plperl/plperl.c | 4 |
1 files changed, 2 insertions, 2 deletions
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; |