diff -U3 /tmp/cirrus-ci-build/src/pl/plperl/expected/plperl.out /tmp/cirrus-ci-build/build/testrun/plperl/regress/results/plperl.out --- /tmp/cirrus-ci-build/src/pl/plperl/expected/plperl.out 2024-03-27 22:35:14.134820000 +0000 +++ /tmp/cirrus-ci-build/build/testrun/plperl/regress/results/plperl.out 2024-03-27 22:52:57.901875000 +0000 @@ -11,6 +11,7 @@ (1 row) SELECT * FROM perl_int(42); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_int ---------- @@ -26,6 +27,7 @@ (1 row) SELECT * FROM perl_int(42); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_int ---------- 43 @@ -40,6 +42,7 @@ (0 rows) SELECT * FROM perl_set_int(5); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_set_int -------------- (0 rows) @@ -59,6 +62,7 @@ (6 rows) SELECT * FROM perl_set_int(5); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_set_int -------------- 0 @@ -81,6 +85,7 @@ (1 row) SELECT * FROM perl_row(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 | f4 ----+----+----+---- | | | @@ -96,6 +101,7 @@ (1 row) SELECT * FROM perl_row(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 | f4 ----+-------+-------+--------- 1 | hello | world | ({{1}}) @@ -120,6 +126,7 @@ (0 rows) SELECT * FROM perl_set(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 | f4 ----+----+----+---- (0 rows) @@ -138,6 +145,7 @@ ERROR: SETOF-composite-returning PL/Perl function must call return_next with reference to hash CONTEXT: PL/Perl function "perl_set" SELECT * FROM perl_set(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: SETOF-composite-returning PL/Perl function must call return_next with reference to hash CONTEXT: PL/Perl function "perl_set" CREATE OR REPLACE FUNCTION perl_set() RETURNS SETOF testrowperl AS $$ @@ -164,6 +172,7 @@ (7 rows) SELECT * FROM perl_set(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 | f4 ----+-------+------------+------- 1 | Hello | World | @@ -189,6 +198,7 @@ LINE 1: SELECT * FROM perl_record(); ^ SELECT * FROM perl_record() AS (f1 integer, f2 text, f3 text, f4 testnestperl); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 | f4 ----+----+----+---- | | | @@ -205,6 +215,7 @@ LINE 1: SELECT * FROM perl_record(); ^ SELECT * FROM perl_record() AS (f1 integer, f2 text, f3 text, f4 testnestperl); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 | f4 ----+-------+-------+------- 1 | hello | world | ({1}) @@ -223,6 +234,7 @@ LINE 1: SELECT * FROM perl_record_set(); ^ SELECT * FROM perl_record_set() AS (f1 integer, f2 text, f3 text); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 ----+----+---- (0 rows) @@ -242,6 +254,7 @@ LINE 1: SELECT * FROM perl_record_set(); ^ SELECT * FROM perl_record_set() AS (f1 integer, f2 text, f3 text); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: SETOF-composite-returning PL/Perl function must call return_next with reference to hash CONTEXT: PL/Perl function "perl_record_set" CREATE OR REPLACE FUNCTION perl_record_set() RETURNS SETOF record AS $$ @@ -259,6 +272,7 @@ LINE 1: SELECT * FROM perl_record_set(); ^ SELECT * FROM perl_record_set() AS (f1 integer, f2 text, f3 text); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 ----+-------+------------ 1 | Hello | World @@ -277,6 +291,7 @@ (1 row) SELECT * FROM perl_out_params(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 ----+-------+------- 1 | hello | world @@ -306,6 +321,7 @@ (3 rows) SELECT * FROM perl_out_params_set(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 ----+-------+------------ 1 | Hello | World @@ -332,6 +348,7 @@ ]; $$ LANGUAGE plperl; SELECT * FROM foo_good(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree x | y ---+--- 1 | 2 @@ -342,12 +359,14 @@ return {y => 3, z => 4}; $$ LANGUAGE plperl; SELECT * FROM foo_bad(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: Perl hash contains nonexistent column "z" CONTEXT: PL/Perl function "foo_bad" CREATE OR REPLACE FUNCTION foo_bad() RETURNS footype AS $$ return 42; $$ LANGUAGE plperl; SELECT * FROM foo_bad(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: malformed record literal: "42" DETAIL: Missing left parenthesis. CONTEXT: PL/Perl function "foo_bad" @@ -358,18 +377,21 @@ ]; $$ LANGUAGE plperl; SELECT * FROM foo_bad(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: cannot convert Perl array to non-array type footype CONTEXT: PL/Perl function "foo_bad" CREATE OR REPLACE FUNCTION foo_set_bad() RETURNS SETOF footype AS $$ return 42; $$ LANGUAGE plperl; SELECT * FROM foo_set_bad(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: set-returning PL/Perl function must return reference to array or use return_next CONTEXT: PL/Perl function "foo_set_bad" CREATE OR REPLACE FUNCTION foo_set_bad() RETURNS SETOF footype AS $$ return {y => 3, z => 4}; $$ LANGUAGE plperl; SELECT * FROM foo_set_bad(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: set-returning PL/Perl function must return reference to array or use return_next CONTEXT: PL/Perl function "foo_set_bad" CREATE OR REPLACE FUNCTION foo_set_bad() RETURNS SETOF footype AS $$ @@ -379,6 +401,7 @@ ]; $$ LANGUAGE plperl; SELECT * FROM foo_set_bad(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: SETOF-composite-returning PL/Perl function must call return_next with reference to hash CONTEXT: PL/Perl function "foo_set_bad" CREATE OR REPLACE FUNCTION foo_set_bad() RETURNS SETOF footype AS $$ @@ -387,6 +410,7 @@ ]; $$ LANGUAGE plperl; SELECT * FROM foo_set_bad(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: Perl hash contains nonexistent column "z" CONTEXT: PL/Perl function "foo_set_bad" CREATE DOMAIN orderedfootype AS footype CHECK ((VALUE).x <= (VALUE).y); @@ -394,6 +418,7 @@ return {x => 3, y => 4}; $$ LANGUAGE plperl; SELECT * FROM foo_ordered(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree x | y ---+--- 3 | 4 @@ -403,6 +428,7 @@ return {x => 5, y => 4}; $$ LANGUAGE plperl; SELECT * FROM foo_ordered(); -- fail +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: value for domain orderedfootype violates check constraint "orderedfootype_check" CONTEXT: PL/Perl function "foo_ordered" CREATE OR REPLACE FUNCTION foo_ordered_set() RETURNS SETOF orderedfootype AS $$ @@ -412,6 +438,7 @@ ]; $$ LANGUAGE plperl; SELECT * FROM foo_ordered_set(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree x | y ---+--- 3 | 4 @@ -425,6 +452,7 @@ ]; $$ LANGUAGE plperl; SELECT * FROM foo_ordered_set(); -- fail +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree ERROR: value for domain orderedfootype violates check constraint "orderedfootype_check" CONTEXT: PL/Perl function "foo_ordered_set" -- @@ -502,6 +530,7 @@ return; $$ language plperl; SELECT * from perl_srf_rn() AS (f1 INTEGER, f2 TEXT, f3 TEXT); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree f1 | f2 | f3 ----+-------+------------ 1 | Hello | World @@ -520,6 +549,8 @@ return; $$ LANGUAGE plperl; SELECT * from perl_spi_func(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_spi_func --------------- 1 @@ -535,6 +566,8 @@ return 0; $$ LANGUAGE plperl; SELECT * from perl_spi_func2(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_spi_func2 ---------------- 0 @@ -564,6 +597,7 @@ $$; SELECT * FROM recurse(2); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree recurse --------- hello 1 @@ -571,6 +605,8 @@ (2 rows) SELECT * FROM recurse(3); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree recurse -------------------- hello 1 @@ -603,6 +639,7 @@ return $q->{rows}->[0]->{a}; $$ LANGUAGE plperl; SELECT * from perl_spi_prepared(42); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_spi_prepared ------------------- 43 @@ -621,6 +658,8 @@ return; $$ LANGUAGE plperl; SELECT * from perl_spi_prepared_set(1,2); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_spi_prepared_set ----------------------- 2 @@ -670,6 +709,7 @@ return $q->{rows}->[0]->{a}->{x}; $$ LANGUAGE plperl; SELECT * from perl_spi_prepared(); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree perl_spi_prepared ------------------- 1 @@ -683,6 +723,7 @@ return $q->{rows}->[0]->{a}; $$ LANGUAGE plperl; SELECT * from perl_spi_prepared_row('(1, 2)'); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree x | y ---+--- 1 | 2 diff -U3 /tmp/cirrus-ci-build/src/pl/plperl/expected/plperl_trigger.out /tmp/cirrus-ci-build/build/testrun/plperl/regress/results/plperl_trigger.out --- /tmp/cirrus-ci-build/src/pl/plperl/expected/plperl_trigger.out 2024-03-27 22:35:14.135843000 +0000 +++ /tmp/cirrus-ci-build/build/testrun/plperl/regress/results/plperl_trigger.out 2024-03-27 22:52:57.985685000 +0000 @@ -193,6 +193,7 @@ NOTICE: $_TD->{table_schema} = 'public' NOTICE: $_TD->{when} = 'INSTEAD OF' update trigger_test_view set v = 'update', foo = '("(3)")' where i = 1; +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree NOTICE: $_TD->{argc} = '2' NOTICE: $_TD->{args} = ['24', 'skidoo view'] NOTICE: $_TD->{event} = 'UPDATE' @@ -206,6 +207,7 @@ NOTICE: $_TD->{table_schema} = 'public' NOTICE: $_TD->{when} = 'INSTEAD OF' delete from trigger_test_view; +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree NOTICE: $_TD->{argc} = '2' NOTICE: $_TD->{args} = ['24', 'skidoo view'] NOTICE: $_TD->{event} = 'DELETE' @@ -343,7 +345,9 @@ REFERENCING OLD TABLE AS old_table NEW TABLE AS new_table FOR EACH STATEMENT EXECUTE PROCEDURE transition_table_test_f(); UPDATE transition_table_test SET name = 'b'; +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree INFO: old: 1 -> a +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree INFO: new: 1 -> b DROP TABLE transition_table_test; DROP FUNCTION transition_table_test_f(); diff -U3 /tmp/cirrus-ci-build/src/pl/plperl/expected/plperl_transaction.out /tmp/cirrus-ci-build/build/testrun/plperl/regress/results/plperl_transaction.out --- /tmp/cirrus-ci-build/src/pl/plperl/expected/plperl_transaction.out 2024-03-27 22:35:14.135676000 +0000 +++ /tmp/cirrus-ci-build/build/testrun/plperl/regress/results/plperl_transaction.out 2024-03-27 22:52:58.244135000 +0000 @@ -96,6 +96,7 @@ -- commit inside cursor loop CREATE TABLE test2 (x int); INSERT INTO test2 VALUES (0), (1), (2), (3), (4); +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree TRUNCATE test1; DO LANGUAGE plperl $$ my $sth = spi_query("SELECT * FROM test2 ORDER BY x"); @@ -117,6 +118,7 @@ -- check that this doesn't leak a holdable portal SELECT * FROM pg_cursors; +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree name | statement | is_holdable | is_binary | is_scrollable | creation_time ------+-----------+-------------+-----------+---------------+--------------- (0 rows) @@ -141,6 +143,7 @@ (2 rows) SELECT * FROM pg_cursors; +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree name | statement | is_holdable | is_binary | is_scrollable | creation_time ------+-----------+-------------+-----------+---------------+--------------- (0 rows) @@ -161,6 +164,7 @@ (0 rows) SELECT * FROM pg_cursors; +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree name | statement | is_holdable | is_binary | is_scrollable | creation_time ------+-----------+-------------+-----------+---------------+--------------- (0 rows) @@ -188,6 +192,7 @@ (3 rows) SELECT * FROM pg_cursors; +WARNING: outfuncs/readfuncs failed to produce an equal rewritten parse tree name | statement | is_holdable | is_binary | is_scrollable | creation_time ------+-----------+-------------+-----------+---------------+--------------- (0 rows)