*** src/pl/plperl	Thu Jan 18 13:00:28 2001
--- plperl.c	Thu Jan 18 15:58:48 2001
***************
*** 224,230 ****
  		/* 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');"
  		"$x->share(qw[&elog &DEBUG &NOTICE &NOIND &ERROR]);"
  		" return $x->reval(qq[sub { $_[0] }]); }"
  		};
--- 224,230 ----
  		/* 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');$x->permit(':base_math');"
  		"$x->share(qw[&elog &DEBUG &NOTICE &NOIND &ERROR]);"
  		" return $x->reval(qq[sub { $_[0] }]); }"
  		};