diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2006-08-27 23:47:58 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2006-08-27 23:47:58 +0000 |
| commit | ea2e263539df6a7df33e58e44236c504eb268e68 (patch) | |
| tree | 7eaf045b3e96f2cd97bfa7910309e5b891159a55 /src/pl/plperl/plperl.c | |
| parent | 7a2fe85b03b31f748614cae7a7b3808dba4f65ce (diff) | |
| download | postgresql-ea2e263539df6a7df33e58e44236c504eb268e68.tar.gz postgresql-ea2e263539df6a7df33e58e44236c504eb268e68.zip | |
Add new return codes SPI_OK_INSERT_RETURNING etc to the SPI API.
Fix all the standard PLs to be able to return tuples from FOO_RETURNING
statements as well as utility statements that return tuples. Also,
fix oversight that SPI_processed wasn't set for a utility statement
returning tuples. Per recent discussion.
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index c63e9d7b62e..0906d3186ac 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -1,7 +1,7 @@ /********************************************************************** * plperl.c - perl as a procedural language for PostgreSQL * - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.117 2006/08/13 17:31:10 momjian Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.118 2006/08/27 23:47:58 tgl Exp $ * **********************************************************************/ @@ -1630,7 +1630,7 @@ plperl_spi_execute_fetch_result(SPITupleTable *tuptable, int processed, hv_store(result, "processed", strlen("processed"), newSViv(processed), 0); - if (status == SPI_OK_SELECT) + if (status > 0 && tuptable) { AV *rows; SV *row; |