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

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

[hs@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
whileprocessing 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 "                .
"WHEREtransaction 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