diff options
| author | drh <drh@noemail.net> | 2006-07-12 00:18:40 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2006-07-12 00:18:40 +0000 |
| commit | 050be3294aeff22d92b77b939c7452b35e01beed (patch) | |
| tree | aaf26cf281d5a1885d0b1c96f350a6e7b9b2da52 /src/tclsqlite.c | |
| parent | 76fe8032c1ca7bdc904188c1dd4059189f459404 (diff) | |
| download | sqlite-050be3294aeff22d92b77b939c7452b35e01beed.tar.gz sqlite-050be3294aeff22d92b77b939c7452b35e01beed.zip | |
Reset TCL results when onecolumn or eval methods have no reply.
Ticket #1887. (CVS 3331)
FossilOrigin-Name: 9c6090c609afa9906029ed4ba22375f5bee058c4
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index f780d9fac..d660c4c53 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.163 2006/07/10 21:15:52 drh Exp $ +** $Id: tclsqlite.c,v 1.164 2006/07/12 00:18:41 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -1568,6 +1568,8 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ Tcl_SetObjResult(interp, pRet); } Tcl_DecrRefCount(pRet); + }else if( rc==TCL_OK ){ + Tcl_ResetResult(interp); } break; } |