From: Heikki Linnakangas <heikki.linnakangas@iki.fi>
Date: Wed, 21 Jan 2009 11:13:14 +0000 (+0000)
Subject: Forgot to handle the new SPI_OK_REWRITTEN result code in a couple places.
X-Git-Tag: REL8_4_BETA1~352
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=410a372ae31b7684d2f2783b27c17af70c647f7c;p=postgresql

Forgot to handle the new SPI_OK_REWRITTEN result code in a couple places.
---

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);