strange bug in plperl - Mailing list pgsql-hackers

Can anyone suggest why I might be seeing this effect (each notice comes 
out once per row plus once per function call)

thanks

andrew

andrew=# create function tstset() returns setof tst language plperl as $$
andrew$# elog(NOTICE,"tstset called");
andrew$# return [{i=>1,v=>"one"},{i=>2,v=>"two"}];
andrew$# $$;
CREATE FUNCTION
andrew=# select * from tstset();
NOTICE:  tstset called
NOTICE:  tstset called
NOTICE:  tstset calledi |  v 
---+-----1 | one2 | two
(2 rows)



pgsql-hackers by date:

Previous
From: "John Hansen"
Date:
Subject: Re: Relay Access Denied
Next
From: Andrew Dunstan
Date:
Subject: Re: Bug in PL/Perl CVS head w/spi patch