PL/Perl backed crashed during spi_exec_query

Hi,

One of our customers is running 8.2.14 and use a couple of pl/perl and
pl/perlu functions written by CMD. Everything worked normally until
they tried to call one particular pl/perl function from pl/perl via
spi. It appears that a die call inside the callee just crashes the
backend. Here is the simple example:

CREATE OR REPLACE FUNCTION caller() RETURNS VOID AS $$
my $res = spi_exec_query('select callee()');
$$ LANGUAGE plperlu;

CREATE OR REPLACE FUNCTION callee() RETURNS VOID AS $$
die "callee died";
$$ LANGUAGE plperl;

On my system (8.2.14 running OS X 10.6.1, perl 5.8.9 installed from
macports, relevant flags from perl -V: usethreads=define
use5005threads=undef useithreads=define usemultiplicity=define ):

postgres=# select callee();
ERROR: error from Perl function: callee died at line 2.

postgres=# select caller();
server closed the connection unexpectedly
This probably means the server terminated abnormally
before or while processing the request.
The connection to the server was lost. Attempting reset: Failed.

and in the server log:
ERROR: error from Perl function: callee died at line 2.
STATEMENT: select callee();
error from Perl function: callee died at line 2..
LOG: server process (PID 36132) exited with exit code 255
LOG: terminating any other active server processes
FATAL: the database system is in recovery mode
LOG: all server processes terminated; reinitializing

Here is gdb output with a backtrace of the process just before it
exits. It seems to terminate on croak call. The edata structure seems
to b valid, so I suspect there is something with the interpreter that
is executing croak.

Breakpoint 1, plperl_spi_exec (query=0x10053d650 "select callee()",
limit=0) at plperl.c:1814
1814 SPI_restore_connection();
(gdb) n
1817 croak("%s", edata->message);

(gdb) p edata
$1 = (ErrorData *) 0x100949290
(gdb) p *edata
$2 = {
elevel = 20,
output_to_server = 1 '\001',
output_to_client = 1 '\001',
show_funcname = 0 '\0',
filename = 0x100684b08 "plperl.c",
lineno = 1131,
funcname = 0x1006860af "plperl_call_perl_func",
sqlerrcode = 2600,
message = 0x100949238 "error from Perl function: callee died at
line 2.",
detail = 0x0,
hint = 0x0,
context = 0x100949328 "SQL statement \"select callee()\"",
cursorpos = 0,
internalpos = 0,
internalquery = 0x0,
saved_errno = 0
}
(gdb) bt
#0 plperl_spi_exec (query=0x10053d650 "select callee()", limit=0) at
plperl.c:1817
#1 0x00000001006831c1 in XS__spi_exec_query (my_perl=<value
temporarily unavailable, due to optimizations>, cv=<value temporarily
unavailable, due to optimizations>) at SPI.xs:118
#2 0x00000001007056d2 in Perl_pp_entersub ()
#3 0x00000001006fdbba in Perl_runops_standard ()
#4 0x00000001006f7c8d in Perl_call_sv ()
#5 0x000000010067cec4 in plperl_call_perl_func (desc=0x10093f600,
fcinfo=0x7fff5fbfda20) at plperl.c:1110
#6 0x000000010067fdc9 in plperl_func_handler [inlined] () at /private/
tmp/postgresql-8.2.14/src/pl/plperl/plperl.c:1240
#7 0x000000010067fdc9 in plperl_call_handler (fcinfo=0x7fff5fbfda20)
at plperl.c:858
#8 0x00000001000f8f0e in ExecMakeFunctionResult (fcache=0x1008ecab0,
econtext=0x1008ec980, isNull=0x1008f06a8 "", isDone=0x1008f06c8) at
execQual.c:1340
#9 0x00000001000f6c2f in ExecTargetList [inlined] () at /private/tmp/
postgresql-8.2.14/src/backend/executor/execQual.c:4190
#10 0x00000001000f6c2f in ExecProject (projInfo=<value temporarily
unavailable, due to optimizations>, isDone=0x7fff5fbfde9c) at
execQual.c:4391
#11 0x000000010010a2c3 in ExecResult (node=0x1008ec868) at
nodeResult.c:157
#12 0x00000001000f63b2 in ExecProcNode (node=0x1008ec868) at
execProcnode.c:334
#13 0x00000001000f51fc in ExecutePlan [inlined] () at /private/tmp/
postgresql-8.2.14/src/backend/executor/execMain.c:1172
#14 0x00000001000f51fc in ExecutorRun (queryDesc=<value temporarily
unavailable, due to optimizations>, direction=ForwardScanDirection,
count=0) at execMain.c:244
#15 0x0000000100195099 in PortalRunSelect (portal=0x1008cc438,
forward=<value temporarily unavailable, due to optimizations>,
count=0, dest=0x1008b39b0) at pquery.c:831
#16 0x0000000100196d8f in PortalRun (portal=0x1008cc438,
count=9223372036854775807, dest=0x1008b39b0, altdest=0x1008b39b0,
completionTag=0x7fff5fbfe260 "") at pquery.c:656
#17 0x0000000100191a95 in exec_simple_query (query_string=0x1008b3238
"select caller();") at postgres.c:957
#18 0x0000000100192c19 in PostgresMain (argc=4, argv=0x100836300,
username=0x10081bdf8 "alexk") at postgres.c:3472
#19 0x0000000100164254 in ServerLoop () at postmaster.c:2934
#20 0x00000001001650c9 in PostmasterMain (argc=3, argv=0x100500470) at
postmaster.c:966
#21 0x0000000100119f89 in main (argc=3, argv=0x100500470) at main.c:188
(gdb) s

Program exited with code 0377.

--
Alexey Klyukin http://www.CommandPrompt.com/
The PostgreSQL Company - Command Prompt, Inc