src/pl/plperl/sql/plperl_end.sql

-- test END block handling

-- Not included in the normal testing
-- because it's beyond the scope of the test harness.
-- Available here for manual developer testing.

DO $do$
	my $testlog = "/tmp/pgplperl_test.log";

	warn "Run test, then examine contents of $testlog (which must already exist)\n";
	return unless -f $testlog;

    use IO::Handle; # for autoflush
	open my $fh, '>', $testlog
		or die "Can't write to $testlog: $!";
    $fh->autoflush(1);

    print $fh "# you should see just 3 'Warn: ...' lines: PRE, END and SPI ...\n";
    $SIG{__WARN__} = sub { print $fh "Warn: @_" };
    $SIG{__DIE__}  = sub { print $fh "Die: @_" unless $^S; die @_ };

	END {
		warn "END\n";
		eval { spi_exec_query("select 1") };
		warn $@;
	}
    warn "PRE\n";

$do$ language plperlu;