|
1 | 1 | /********************************************************************** |
2 | 2 | * plperl.c - perl as a procedural language for PostgreSQL |
3 | 3 | * |
4 | | - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.134 2007/12/0117:58:42 tgl Exp $ |
| 4 | + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.135 2008/01/22 20:17:37 adunstan Exp $ |
5 | 5 | * |
6 | 6 | **********************************************************************/ |
7 | 7 |
|
@@ -272,8 +272,8 @@ _PG_init(void) |
272 | 272 | "sub ::mksafefunc {" \ |
273 | 273 | " my $ret = $PLContainer->reval(qq[sub { $_[0] $_[1] }]); " \ |
274 | 274 | " $@ =~ s/\\(eval \\d+\\) //g if $@; return $ret; }" \ |
275 | | -"$PLContainer->permit('require'); $PLContainer->reval('use strict;');" \ |
276 | | -"$PLContainer->deny('require');" \ |
| 275 | +"$PLContainer->permit(qw[require caller]); $PLContainer->reval('use strict;');" \ |
| 276 | +"$PLContainer->deny(qw[require caller]);" \ |
277 | 277 | "sub ::mk_strict_safefunc {" \ |
278 | 278 | " my $ret = $PLContainer->reval(qq[sub { BEGIN { strict->import(); } $_[0] $_[1] }]); " \ |
279 | 279 | " $@ =~ s/\\(eval \\d+\\) //g if $@; return $ret; }" |
|