|
33 | 33 | * ENHANCEMENTS, OR MODIFICATIONS. |
34 | 34 | * |
35 | 35 | * IDENTIFICATION |
36 | | - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.89 2005/08/12 21:26:32 tgl Exp $ |
| 36 | + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.90 2005/08/20 19:19:21 tgl Exp $ |
37 | 37 | * |
38 | 38 | **********************************************************************/ |
39 | 39 |
|
@@ -680,7 +680,7 @@ plperl_create_sub(char *s, bool trusted) |
680 | 680 | * errors properly. Perhaps it's because there's another level of |
681 | 681 | * eval inside mksafefunc? |
682 | 682 | */ |
683 | | -count=perl_call_pv((trusted ?"mksafefunc" :"mkunsafefunc"), |
| 683 | +count=perl_call_pv((trusted ?"::mksafefunc" :"::mkunsafefunc"), |
684 | 684 | G_SCALAR |G_EVAL |G_KEEPERR); |
685 | 685 | SPAGAIN; |
686 | 686 |
|
|