plperl and refcursor?

Hello,

I had problem with cursor in plperl. Fetch returns zero rows not one, and I 
don't know why.

create or replace function outside() returns void as $$
declare bbb cursor for select 12 as x;
begin open bbb; perform poo(bbb);
end;
$$ language plpgsql;
select outside();

create or replace function poo(refcursor) returns void as $$       my $sth = spi_exec_query("fetch all from $_[0]");
  elog(NOTICE, "boooo ".$sth->{processed}); # expected one, got zero
 
$$ language plperlu;

Can you help me?

Thank you
Pavel Stehule

_________________________________________________________________
Najdete si svou lasku a nove pratele na Match.com. http://www.msn.cz/