Index: GNUmakefile
===================================================================
RCS file: /projects/cvsroot/pgsql/src/pl/plperl/GNUmakefile,v
retrieving revision 1.22
diff -c -r1.22 GNUmakefile
*** GNUmakefile	24 May 2005 17:07:41 -0000	1.22
--- GNUmakefile	13 Jun 2005 20:24:50 -0000
***************
*** 37,43 ****
  SHLIB_LINK = $(perl_embed_ldflags) $(BE_DLLLIBS)
  
  REGRESS_OPTS = --dbname=$(PL_TESTDB) --load-language=plperl
! REGRESS = plperl plperl_trigger plperl_shared
  
  include $(top_srcdir)/src/Makefile.shlib
  
--- 37,43 ----
  SHLIB_LINK = $(perl_embed_ldflags) $(BE_DLLLIBS)
  
  REGRESS_OPTS = --dbname=$(PL_TESTDB) --load-language=plperl
! REGRESS = plperl plperl_trigger plperl_shared plperl_elog
  
  include $(top_srcdir)/src/Makefile.shlib
  
Index: plperl.c
===================================================================
RCS file: /projects/cvsroot/pgsql/src/pl/plperl/plperl.c,v
retrieving revision 1.76
diff -c -r1.76 plperl.c
*** plperl.c	5 Jun 2005 03:16:35 -0000	1.76
--- plperl.c	13 Jun 2005 20:24:51 -0000
***************
*** 188,193 ****
--- 188,195 ----
  		"", "-e",
  		/* all one string follows (no commas please) */
  		"SPI::bootstrap(); use vars qw(%_SHARED);"
+ 		"sub ::plperl_warn { my $msg = shift; &elog(&NOTICE, $msg); } "
+ 		"$SIG{__WARN__} = \\&::plperl_warn; "
  		"sub ::mkunsafefunc {return eval(qq[ sub { $_[0] $_[1] } ]); }"
  	};
  
***************
*** 195,200 ****
--- 197,204 ----
  		"", "-e",
  		/* all one string follows (no commas please) */
  		"SPI::bootstrap(); use vars qw(%_SHARED);"
+ 		"sub ::plperl_warn { my $msg = shift; &elog(&NOTICE, $msg); } "
+ 		"$SIG{__WARN__} = \\&::plperl_warn; "
  		"sub ::mkunsafefunc {return eval("
  		"qq[ sub { use strict; $_[0] $_[1] } ]); }"
  	};