diff options
| author | Bruce Momjian <bruce@momjian.us> | 2001-01-19 16:14:36 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2001-01-19 16:14:36 +0000 |
| commit | de266c6d73e294ea91c28212908a58037f88d719 (patch) | |
| tree | 06a8c90afc700b52f8a331c3379091a6d3c98127 | |
| parent | be281916f976489cc8d531e7b7c3213b0174c160 (diff) | |
> > I have attached a simple change to src/pl/plperl/plperl.c to
> > enable the :bash_math opcodes. Currently plperl.c only
> > enables the :default opcodes. This leave out about five of six
> > math functions including sqrt().
Travis Bauer
| -rw-r--r-- | src/pl/plperl/plperl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 505f77c95bc..21a78bdfaec 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -33,7 +33,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.17 2000/12/08 00:11:55 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.18 2001/01/19 16:14:36 momjian Exp $ * **********************************************************************/ @@ -227,7 +227,7 @@ plperl_init_safe_interp(void) /* no commas between the next 4 please. They are supposed to be one string */ "require Safe; SPI::bootstrap();" - "sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');" + "sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');$x->permit(':base_math');" "$x->share(qw[&elog &DEBUG &NOTICE &NOIND &ERROR]);" " return $x->reval(qq[sub { $_[0] }]); }" }; |