> > 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

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 505f77c95bcc6fd0d428619ecb01be38c2bdd0fe..21a78bdfaece23e06c46a9a5e73372d851653b15 100644 (file)
--- 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] }]); }"
        };