Index: plperl.c
===================================================================
RCS file: /projects/cvsroot/pgsql/src/pl/plperl/plperl.c,v
retrieving revision 1.89
diff -c -r1.89 plperl.c
*** plperl.c	12 Aug 2005 21:26:32 -0000	1.89
--- plperl.c	20 Aug 2005 18:35:14 -0000
***************
*** 680,686 ****
  	 * errors properly.  Perhaps it's because there's another level of
  	 * eval inside mksafefunc?
  	 */
! 	count = perl_call_pv((trusted ? "mksafefunc" : "mkunsafefunc"),
  						 G_SCALAR | G_EVAL | G_KEEPERR);
  	SPAGAIN;
  
--- 680,686 ----
  	 * errors properly.  Perhaps it's because there's another level of
  	 * eval inside mksafefunc?
  	 */
! 	count = perl_call_pv((trusted ? "::mksafefunc" : "::mkunsafefunc"),
  						 G_SCALAR | G_EVAL | G_KEEPERR);
  	SPAGAIN;