pl/tcl regression failed

Hi,

I have finished buildfarm setup, just waiting for my credentials.
However, I've install tcl 8.5a and regression tests fail like this:

ISTM it's just cosmetic, just want to share...

gmake[1]: Leaving directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/pl/plperl'
gmake[1]: Entering directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/pl/tcl'
gmake -C ../../../src/test/regress pg_regress
gmake[2]: Entering directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/test/regress'
gmake[2]: `pg_regress' is up to date.
gmake[2]: Leaving directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/test/regress'
/bin/sh ../../../src/test/regress/pg_regress --dbname=pl_regression --load-language=pltcl pltcl_setup pltcl_queries
(using postmaster on Unix socket, default port)
============== dropping database "pl_regression" ==============
DROP DATABASE
============== creating database "pl_regression" ==============
CREATE DATABASE
============== dropping regression test user accounts ==============
============== installing pltcl ==============
============== running regression test queries ==============
test pltcl_setup ... ok
test pltcl_queries ... FAILED

======================
1 of 2 tests failed.
======================

The differences that caused some tests to fail can be viewed in the
file `./regression.diffs'. A copy of the test summary that you see
above is saved in the file `./regression.out'.

gmake[1]: *** [installcheck] Error 1
gmake[1]: Leaving directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/pl/tcl'
gmake: *** [installcheck] Error 2

================= pgsql.24436/src/pl/tcl/regression.diffs ===================
*** ./expected/pltcl_queries.out Sun Jun 11 19:58:48 2006
--- ./results/pltcl_queries.out Sun Jun 11 20:05:34 2006
***************
*** 38,56 ****
insert into T_pkey1 values (1, 'KEY1-3', 'should work');
-- Due to the upper case translation in trigger this must fail
insert into T_pkey2 values (1, 'KEY1-3', 'should fail');
! ERROR: duplicate key '1', 'KEY1-3' for T_pkey2
insert into T_dta1 values ('trec 1', 1, 'key1-1');
insert into T_dta1 values ('trec 2', 1, 'key1-2');
insert into T_dta1 values ('trec 3', 1, 'key1-3');
-- Must fail due to unknown key in T_pkey1
insert into T_dta1 values ('trec 4', 1, 'key1-4');
! ERROR: key for t_dta1 not in t_pkey1
insert into T_dta2 values ('trec 1', 1, 'KEY1-1');
insert into T_dta2 values ('trec 2', 1, 'KEY1-2');
insert into T_dta2 values ('trec 3', 1, 'KEY1-3');
-- Must fail due to unknown key in T_pkey2
insert into T_dta2 values ('trec 4', 1, 'KEY1-4');
! ERROR: key for t_dta2 not in t_pkey2
select * from T_dta1;
tkey | ref1 | ref2
------------+------+----------------------
--- 38,56 ----
insert into T_pkey1 values (1, 'KEY1-3', 'should work');
-- Due to the upper case translation in trigger this must fail
insert into T_pkey2 values (1, 'KEY1-3', 'should fail');
! ERROR:
insert into T_dta1 values ('trec 1', 1, 'key1-1');
insert into T_dta1 values ('trec 2', 1, 'key1-2');
insert into T_dta1 values ('trec 3', 1, 'key1-3');
-- Must fail due to unknown key in T_pkey1
insert into T_dta1 values ('trec 4', 1, 'key1-4');
! ERROR:
insert into T_dta2 values ('trec 1', 1, 'KEY1-1');
insert into T_dta2 values ('trec 2', 1, 'KEY1-2');
insert into T_dta2 values ('trec 3', 1, 'KEY1-3');
-- Must fail due to unknown key in T_pkey2
insert into T_dta2 values ('trec 4', 1, 'KEY1-4');
! ERROR:
select * from T_dta1;
tkey | ref1 | ref2
------------+------+----------------------
***************
*** 69,78 ****

update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1';
update T_pkey1 set key2 = 'key1-9' where key1 = 1 and key2 = 'key1-1';
! ERROR: key '1', 'key1-1 ' referenced by T_dta1
delete from T_pkey1 where key1 = 2 and key2 = 'key2-2';
delete from T_pkey1 where key1 = 1 and key2 = 'key1-2';
! ERROR: key '1', 'key1-2 ' referenced by T_dta1
update T_pkey2 set key2 = 'KEY2-9' where key1 = 2 and key2 = 'KEY2-1';
update T_pkey2 set key2 = 'KEY1-9' where key1 = 1 and key2 = 'KEY1-1';
NOTICE: updated 1 entries in T_dta2 for new key in T_pkey2
--- 69,78 ----

update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1';
update T_pkey1 set key2 = 'key1-9' where key1 = 1 and key2 = 'key1-1';
! ERROR:
delete from T_pkey1 where key1 = 2 and key2 = 'key2-2';
delete from T_pkey1 where key1 = 1 and key2 = 'key1-2';
! ERROR:
update T_pkey2 set key2 = 'KEY2-9' where key1 = 2 and key2 = 'KEY2-1';
update T_pkey2 set key2 = 'KEY1-9' where key1 = 1 and key2 = 'KEY1-1';
NOTICE: updated 1 entries in T_dta2 for new key in T_pkey2

======================================================================

================= /home4/ohp/pgfarmbuild/HEAD/inst/logfile ===================
LOG: database system was shut down at 2006-06-11 20:05:22 MET DST
LOG: checkpoint record is at 0/1FCE6A0
LOG: redo record is at 0/1FCE6A0; undo record is at 0/0; shutdown TRUE
LOG: next transaction ID: 7960; next OID: 38502
LOG: next MultiXactId: 1; next MultiXactOffset: 0
LOG: database system is ready
LOG: transaction ID wrap limit is 1073745361, limited by database "regression"
ERROR: database "pl_regression" does not exist
LOG: transaction ID wrap limit is 1073745361, limited by database "regression"
ERROR: role "regressgroup1" does not exist
ERROR: set-valued function called in context that cannot accept a set
ERROR: set-valued function called in context that cannot accept a set
ERROR: set-valued function called in context that cannot accept a set
ERROR: set-valued function called in context that cannot accept a set
ERROR: setof-composite-returning Perl function must call return_next with reference to hash
ERROR: set-valued function called in context that cannot accept a set
ERROR: a column definition list is required for functions returning "record"
ERROR: function returning record called in context that cannot accept type record
ERROR: a column definition list is required for functions returning "record"
ERROR: set-valued function called in context that cannot accept a set
ERROR: a column definition list is required for functions returning "record"
ERROR: set-valued function called in context that cannot accept a set
ERROR: a column definition list is required for functions returning "record"
ERROR: setof-composite-returning Perl function must call return_next with reference to hash
ERROR: set-valued function called in context that cannot accept a set
ERROR: a column definition list is required for functions returning "record"
ERROR: set-valued function called in context that cannot accept a set
ERROR: set-valued function called in context that cannot accept a set
ERROR: Perl hash contains nonexistent column "z"
ERROR: composite-returning Perl function must return reference to hash
ERROR: composite-returning Perl function must return reference to hash
ERROR: set-returning Perl function must return reference to array or use return_next
ERROR: set-returning Perl function must return reference to array or use return_next
ERROR: setof-composite-returning Perl function must call return_next with reference to hash
ERROR: Perl hash contains nonexistent column "z"
NOTICE: $_TD->{argc} = '2'
NOTICE: $_TD->{args} = ['23', 'skidoo']
NOTICE: $_TD->{event} = 'INSERT'
NOTICE: $_TD->{level} = 'ROW'
NOTICE: $_TD->{name} = 'show_trigger_data_trig'
NOTICE: $_TD->{new} = {'i' => '1', 'v' => 'insert'}
NOTICE: $_TD->{relid} = 'bogus:12345'
NOTICE: $_TD->{relname} = 'trigger_test'
NOTICE: $_TD->{table_name} = 'trigger_test'
NOTICE: $_TD->{table_schema} = 'public'
NOTICE: $_TD->{when} = 'BEFORE'
NOTICE: $_TD->{argc} = '2'
NOTICE: $_TD->{args} = ['23', 'skidoo']
NOTICE: $_TD->{event} = 'UPDATE'
NOTICE: $_TD->{level} = 'ROW'
NOTICE: $_TD->{name} = 'show_trigger_data_trig'
NOTICE: $_TD->{new} = {'i' => '1', 'v' => 'update'}
NOTICE: $_TD->{old} = {'i' => '1', 'v' => 'insert'}
NOTICE: $_TD->{relid} = 'bogus:12345'
NOTICE: $_TD->{relname} = 'trigger_test'
NOTICE: $_TD->{table_name} = 'trigger_test'
NOTICE: $_TD->{table_schema} = 'public'
NOTICE: $_TD->{when} = 'BEFORE'
NOTICE: $_TD->{argc} = '2'
NOTICE: $_TD->{args} = ['23', 'skidoo']
NOTICE: $_TD->{event} = 'DELETE'
NOTICE: $_TD->{level} = 'ROW'
NOTICE: $_TD->{name} = 'show_trigger_data_trig'
NOTICE: $_TD->{old} = {'i' => '1', 'v' => 'update'}
NOTICE: $_TD->{relid} = 'bogus:12345'
NOTICE: $_TD->{relname} = 'trigger_test'
NOTICE: $_TD->{table_name} = 'trigger_test'
NOTICE: $_TD->{table_schema} = 'public'
NOTICE: $_TD->{when} = 'BEFORE'
NOTICE: explicit elog
NOTICE: implicit elog via warn at line 4.

ERROR: creation of Perl function failed: Global symbol "$global" requires explicit package name at line 3.
Global symbol "$other_global" requires explicit package name at line 4.
ERROR: function uses_global() does not exist at character 8
HINT: No function matches the given name and argument types. You may need to add explicit type casts.
LOG: transaction ID wrap limit is 1073745361, limited by database "regression"
LOG: transaction ID wrap limit is 1073745361, limited by database "regression"
ERROR: role "regressgroup1" does not exist
ERROR:
CONTEXT: duplicate key '1', 'KEY1-3' for T_pkey2
while executing
"elog ERROR "duplicate key '$NEW(key1)', '$NEW(key2)' for T_pkey2""
invoked from within
"if {$n > 0} {
elog ERROR \
"duplicate key '$NEW(key1)', '$NEW(key2)' for T_pkey2"
}"
(procedure "__PLTcl_proc_38567_trigger_38551" line 32)
invoked from within
"__PLTcl_proc_38567_trigger_38551 pkey2_before 38551 t_pkey2 public {{} key1 key2 txt} BEFORE ROW INSERT {key1 1 key2 {KEY1-3 } txt {shoul..."
ERROR:
CONTEXT: key for t_dta1 not in t_pkey1
while executing
"elog ERROR "key for $GD($planrel) not in $keyrel""
(procedure "__PLTcl_proc_38571_trigger_38553" line 92)
invoked from within
"__PLTcl_proc_38571_trigger_38553 dta1_before 38553 t_dta1 public {{} tkey ref1 ref2} BEFORE ROW INSERT {tkey {trec 4 } ref1 1 ref2 {key1-4 ..."
ERROR:
CONTEXT: key for t_dta2 not in t_pkey2
while executing
"elog ERROR "key for $GD($planrel) not in $keyrel""
(procedure "__PLTcl_proc_38571_trigger_38555" line 92)
invoked from within
"__PLTcl_proc_38571_trigger_38555 dta2_before 38555 t_dta2 public {{} tkey ref1 ref2} BEFORE ROW INSERT {tkey {trec 4 } ref1 1 ref2 {KEY1-4 ..."
ERROR:
CONTEXT: key '1', 'key1-1 ' referenced by T_dta1
while executing
"elog ERROR "key '$OLD(key1)', '$OLD(key2)' referenced by T_dta1""
invoked from within
"if {$check_old_ref} {
#
# Check for references to OLD
#
set n [spi_execp -count 1 $GD(plan_dta1) [list $OLD(key1) $OLD(key2)]]
if {$n > 0}..."
(procedure "__PLTcl_proc_38565_trigger_38549" line 79)
invoked from within
"__PLTcl_proc_38565_trigger_38549 pkey1_before 38549 t_pkey1 public {{} key1 key2 txt} BEFORE ROW UPDATE {key1 1 key2 {key1-9 } txt {test ..."
ERROR:
CONTEXT: key '1', 'key1-2 ' referenced by T_dta1
while executing
"elog ERROR "key '$OLD(key1)', '$OLD(key2)' referenced by T_dta1""
invoked from within
"if {$check_old_ref} {
#
# Check for references to OLD
#
set n [spi_execp -count 1 $GD(plan_dta1) [list $OLD(key1) $OLD(key2)]]
if {$n > 0}..."
(procedure "__PLTcl_proc_38565_trigger_38549" line 79)
invoked from within
"__PLTcl_proc_38565_trigger_38549 pkey1_before 38549 t_pkey1 public {{} key1 key2 txt} BEFORE ROW DELETE {} {key1 1 key2 {key1-2 } txt {te..."
NOTICE: updated 1 entries in T_dta2 for new key in T_pkey2
NOTICE: deleted 1 entries from T_dta2
NOTICE: NEW: {i: 1, v: insert}
NOTICE: OLD: {}
NOTICE: TG_level: ROW
NOTICE: TG_name: show_trigger_data_trig
NOTICE: TG_op: INSERT
NOTICE: TG_relatts: {{} i v}
NOTICE: TG_relid: bogus:12345
NOTICE: TG_table_name: trigger_test
NOTICE: TG_table_schema: public
NOTICE: TG_when: BEFORE
NOTICE: args: {23 skidoo}
NOTICE: NEW: {i: 1, v: update}
NOTICE: OLD: {i: 1, v: insert}
NOTICE: TG_level: ROW
NOTICE: TG_name: show_trigger_data_trig
NOTICE: TG_op: UPDATE
NOTICE: TG_relatts: {{} i v}
NOTICE: TG_relid: bogus:12345
NOTICE: TG_table_name: trigger_test
NOTICE: TG_table_schema: public
NOTICE: TG_when: BEFORE
NOTICE: args: {23 skidoo}
NOTICE: NEW: {}
NOTICE: OLD: {i: 1, v: update}
NOTICE: TG_level: ROW
NOTICE: TG_name: show_trigger_data_trig
NOTICE: TG_op: DELETE
NOTICE: TG_relatts: {{} i v}
NOTICE: TG_relid: bogus:12345
NOTICE: TG_table_name: trigger_test
NOTICE: TG_table_schema: public
NOTICE: TG_when: BEFORE
NOTICE: args: {23 skidoo}

--
Olivier PRENANT Tel: +33-5-61-50-97-00 (Work)
15, Chemin des Monges +33-5-61-50-97-01 (Fax)
31190 AUTERIVE +33-6-07-63-80-64 (GSM)
FRANCE Email: ohp(at)pyrenet(dot)fr
------------------------------------------------------------------------------
Make your life a dream, make your dream a reality. (St Exupery)