pl/perl not rethrowing pl/pgsql exceptions

[Merlin Moncure <mmoncure@xxxxxxxxx>]

is this behavior correct?

create or replace function error() returns text as
$$
begin
  raise exception 'test!';
end;
$$ language plpgsql;


create or replace function test() returns text as
$$
  my $res = spi_query("select error()"); # this error is ignored
  my $res = spi_query("something stupid!"); # this is not?
$$ language plperlu;

merlin

-- 
Sent via pgsql-general mailing list (pgsql-general@xxxxxxxxxxxxxx)
To make changes to your subscription:
http://www.postgresql.org/mailpref/pgsql-general