]> git.ipfire.org Git - thirdparty/postgresql.git/commitdiff
Invoke mksafefunc and mkunsafefunc with :: decoration. This seems a good
authorTom Lane <tgl@sss.pgh.pa.us>
Sat, 20 Aug 2005 19:19:31 +0000 (19:19 +0000)
committerTom Lane <tgl@sss.pgh.pa.us>
Sat, 20 Aug 2005 19:19:31 +0000 (19:19 +0000)
idea on consistency grounds, whether or not it really fixes bug #1831.
Michael Fuhr

src/pl/plperl/plperl.c

index 118e02df842dc0df227d04375c98148156d799b6..83f77a7f6dce60cd8e56bb4762cb112b2efad12e 100644 (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;