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 7443c62fee..69fea92153 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 c5c0f71d01..6b30e9973d 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);