database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-26 01:22:12 +03:00
Code Activity

Fix plperl to do recursion safely, and fix a problem with array results.

Browse Source 
Add suitable regression tests.  Andrew Dunstan
This commit is contained in:
Tom Lane
2005-07-12 01:16:22 +00:00
parent a1a64bb7c3
commit 220e6bfc53
3 changed files with 128 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
src/pl/plperl/sql/plperl.sql
View File

@ -260,3 +260,44 @@ while (defined ($y = spi_fetchrow($x))) {
return;
$$ LANGUAGE plperl;
SELECT * from perl_spi_func();
---
--- Test recursion via SPI
---
CREATE OR REPLACE FUNCTION recurse(i int) RETURNS SETOF TEXT LANGUAGE plperl
AS $$
my $i = shift;
foreach my $x (1..$i)
{
return_next "hello $x";
}
if ($i > 2)
{
my $z = $i-1;
my $cursor = spi_query("select * from recurse($z)");
while (defined(my $row = spi_fetchrow($cursor)))
{
return_next "recurse $i: $row->{recurse}";
}
}
return undef;
$$;
SELECT * FROM recurse(2);
SELECT * FROM recurse(3);
---
--- Test arrary return
---
CREATE OR REPLACE FUNCTION array_of_text() RETURNS TEXT[][]
LANGUAGE plperl as $$
return [['a"b','c,d'],['e\\f','g']];
$$;
SELECT array_of_text();