bug: core dump in pl/perl (cvs head).

we have found a bug in CVS head using PL/Perl:

[hs(at)hp hs]$ psql test < /tmp/core.sql
DROP FUNCTION
CREATE FUNCTION
NOTICE: sql: SELECT 10, 10 FROM pg_locks WHERE transaction IS NOT NULL
AND pid = pg_backend_pid()
server closed the connection unexpectedly
This probably means the server terminated abnormally
before or while processing the request.
connection to server was lost

DROP FUNCTION func();
CREATE OR REPLACE FUNCTION func() RETURNS int4 AS '
$sql = "SELECT 10, 10 FROM pg_locks "
. "WHERE transaction IS NOT NULL AND pid =
pg_backend_pid() ";
elog(NOTICE, "sql: $sql");
my $rv = spi_exec_query($sql);
return 0;
' LANGUAGE 'plperlu';

SELECT func();

somehow Perl does not seem to like the SPI.
only the development code seems to be affected.

thanks a lot,

hans