From de266c6d73e294ea91c28212908a58037f88d719 Mon Sep 17 00:00:00 2001 From: Bruce Momjian Date: Fri, 19 Jan 2001 16:14:36 +0000 Subject: [PATCH] > > 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 --- src/pl/plperl/plperl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 505f77c95b..21a78bdfae 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] }]); }" }; -- 2.11.0