|
33 | 33 | * ENHANCEMENTS, OR MODIFICATIONS. |
34 | 34 | * |
35 | 35 | * IDENTIFICATION |
36 | | - * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.17 2000/12/08 00:11:55 tgl Exp $ |
| 36 | + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.18 2001/01/19 16:14:36 momjian Exp $ |
37 | 37 | * |
38 | 38 | **********************************************************************/ |
39 | 39 |
|
@@ -227,7 +227,7 @@ plperl_init_safe_interp(void) |
227 | 227 | /* no commas between the next 4 please. They are supposed to be one string |
228 | 228 | */ |
229 | 229 | "require Safe; SPI::bootstrap();" |
230 | | -"sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');" |
| 230 | +"sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');$x->permit(':base_math');" |
231 | 231 | "$x->share(qw[&elog &DEBUG &NOTICE &NOIND &ERROR]);" |
232 | 232 | " return $x->reval(qq[sub { $_[0] }]); }" |
233 | 233 | }; |
|