From 410a372ae31b7684d2f2783b27c17af70c647f7c Mon Sep 17 00:00:00 2001
From: Heikki Linnakangas <heikki.linnakangas@iki.fi>
Date: Wed, 21 Jan 2009 11:13:14 +0000
Subject: [PATCH] Forgot to handle the new SPI_OK_REWRITTEN result code in a
couple places.
---
src/pl/plpgsql/src/pl_exec.c | 3 ++-
src/pl/tcl/pltcl.c | 3 ++-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/pl/plpgsql/src/pl_exec.c b/src/pl/plpgsql/src/pl_exec.c
index 7443c62feef..69fea921537 100644
--- a/src/pl/plpgsql/src/pl_exec.c
+++ b/src/pl/plpgsql/src/pl_exec.c
@@ -8,7 +8,7 @@
*
*
* IDENTIFICATION
- * $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_exec.c,v 1.230 2009/01/21 11:02:40 heikki Exp $
+ * $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_exec.c,v 1.231 2009/01/21 11:13:14 heikki Exp $
*
*-------------------------------------------------------------------------
*/
@@ -2949,6 +2949,7 @@ exec_stmt_dynexecute(PLpgSQL_execstate *estate,
case SPI_OK_UPDATE_RETURNING:
case SPI_OK_DELETE_RETURNING:
case SPI_OK_UTILITY:
+ case SPI_OK_REWRITTEN:
break;
case 0:
diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c
index c5c0f71d01a..6b30e9973d3 100644
--- a/src/pl/tcl/pltcl.c
+++ b/src/pl/tcl/pltcl.c
@@ -2,7 +2,7 @@
* pltcl.c - PostgreSQL support for Tcl as
* procedural language (PL)
*
- * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.126 2009/01/14 20:01:52 petere Exp $
+ * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.127 2009/01/21 11:13:14 heikki Exp $
*
**********************************************************************/
@@ -1825,6 +1825,7 @@ pltcl_process_SPI_result(Tcl_Interp *interp,
break;
case SPI_OK_UTILITY:
+ case SPI_OK_REWRITTEN:
if (tuptable == NULL)
{
Tcl_SetResult(interp, "0", TCL_STATIC);
--
GitLab