Index: src/pl/plperl/plperl.c
===================================================================
RCS file: /projects/cvsroot/pgsql-server/src/pl/plperl/plperl.c,v
retrieving revision 1.42
diff -c -w -r1.42 plperl.c
*** src/pl/plperl/plperl.c	6 Jan 2004 23:55:19 -0000	1.42
--- src/pl/plperl/plperl.c	8 Feb 2004 17:18:18 -0000
***************
*** 207,215 ****
  		 * no commas between the next 5 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 &LOG &INFO &NOTICE &WARNING &ERROR]);"
  		" return $x->reval(qq[sub { $_[0] }]); }"
  		"sub ::mkunsafefunc {return eval(qq[ sub { $_[0] } ]); }"
  	};
--- 207,215 ----
  		 * no commas between the next 5 please. They are supposed to be
  		 * one string
  		 */
! 		"require Safe; SPI::bootstrap(); use vars qw(%session_globals);"
  		"sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');$x->permit(':base_math');"
! 		"$x->share(qw[&elog &DEBUG &LOG &INFO &NOTICE &WARNING &ERROR %session_globals]);"
  		" return $x->reval(qq[sub { $_[0] }]); }"
  		"sub ::mkunsafefunc {return eval(qq[ sub { $_[0] } ]); }"
  	};