diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2005-08-20 19:19:21 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2005-08-20 19:19:21 +0000 |
| commit | 2299ceab1cc5e141431f19eaf70c30f0d84eb28b (patch) | |
| tree | e90cfa46f2c82eda8170405be65c4a305b6f2fc1 /src | |
| parent | ba2fc7eb4b922a4ed395b9d6b9a1401eef6a1c00 (diff) | |
| download | postgresql-2299ceab1cc5e141431f19eaf70c30f0d84eb28b.tar.gz postgresql-2299ceab1cc5e141431f19eaf70c30f0d84eb28b.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
Diffstat (limited to 'src')
| -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 11c0a5bc384..9ca83281402 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.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; |