|
33 | 33 | * ENHANCEMENTS, OR MODIFICATIONS. |
34 | 34 | * |
35 | 35 | * IDENTIFICATION |
36 | | - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.55 2004/10/15 17:08:26 momjian Exp $ |
| 36 | + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.56 2004/11/16 22:05:22 tgl Exp $ |
37 | 37 | * |
38 | 38 | **********************************************************************/ |
39 | 39 |
|
@@ -250,17 +250,20 @@ plperl_safe_init(void) |
250 | 250 |
|
251 | 251 | staticchar*safe_ok= |
252 | 252 | "use vars qw($PLContainer); $PLContainer = new Safe('PLPerl');" |
253 | | -"$PLContainer->permit_only(':default');$PLContainer->permit(':base_math');" |
254 | | -"$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG &INFO &NOTICE &WARNING &ERROR %SHARED ]);" |
| 253 | +"$PLContainer->permit_only(':default');" |
| 254 | +"$PLContainer->permit(qw[:base_math !:base_io sort time]);" |
| 255 | +"$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG " |
| 256 | +"&INFO &NOTICE &WARNING &ERROR %SHARED ]);" |
255 | 257 | "sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] $_[1]}]); }" |
256 | 258 | ; |
257 | 259 |
|
258 | 260 | staticchar*safe_bad= |
259 | 261 | "use vars qw($PLContainer); $PLContainer = new Safe('PLPerl');" |
260 | | -"$PLContainer->permit_only(':default');$PLContainer->permit(':base_math');" |
261 | | -"$PLContainer->share(qw[&elog &DEBUG &LOG &INFO &NOTICE &WARNING &ERROR %SHARED ]);" |
| 262 | +"$PLContainer->permit_only(':default');" |
| 263 | +"$PLContainer->share(qw[&elog &ERROR ]);" |
262 | 264 | "sub ::mksafefunc { return $PLContainer->reval(qq[sub { " |
263 | | -"elog(ERROR,'trusted perl functions disabled - please upgrade perl Safe module to at least 2.09');}]); }" |
| 265 | +"elog(ERROR,'trusted perl functions disabled - " |
| 266 | +"please upgrade perl Safe module to at least 2.09');}]); }" |
264 | 267 | ; |
265 | 268 |
|
266 | 269 | SV*res; |
|