While building some better plperl tests today I discovered a horrid bug (which I regret to say is my fault), present in both 8.0 and HEAD branches, The attached patch needs to be applied urgently to both branches, please.

cheers

andrew

Index: plperl.c
===================================================================
RCS file: /projects/cvsroot/pgsql/src/pl/plperl/plperl.c,v
retrieving revision 1.73
diff -c -r1.73 plperl.c
*** plperl.c    6 May 2005 17:24:55 -0000       1.73
--- plperl.c    21 May 2005 20:56:02 -0000
***************
*** 226,232 ****
       "$PLContainer->permit_only(':default');"
       "$PLContainer->permit(qw[:base_math !:base_io sort time]);"
       "$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG "
!     "&INFO &NOTICE &WARNING &ERROR %SHARED ]);"
"sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] $_[1]}]); }"
                          ;

--- 226,232 ----
       "$PLContainer->permit_only(':default');"
       "$PLContainer->permit(qw[:base_math !:base_io sort time]);"
       "$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG "
!     "&INFO &NOTICE &WARNING &ERROR %_SHARED ]);"
"sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] $_[1]}]); }"
                          ;



---------------------------(end of broadcast)---------------------------
TIP 9: the planner will ignore your desire to choose an index scan if your
     joining column's datatypes do not match

Reply via email to