diff options
| author | drh <drh@noemail.net> | 2011-08-26 19:20:47 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2011-08-26 19:20:47 +0000 |
| commit | 7cca2e6259ebfa598c6fca09b597693dff3eb309 (patch) | |
| tree | f8f13e5995341dabfd7bbee7d6c93d77004e8f88 /src/tclsqlite.c | |
| parent | 0e9a916c36b30f1aac17fb46f629013d7886eeed (diff) | |
| parent | 25d054fabd9e54d7c13a9fcfcfc7346472e3f6db (diff) | |
| download | sqlite-7cca2e6259ebfa598c6fca09b597693dff3eb309.tar.gz sqlite-7cca2e6259ebfa598c6fca09b597693dff3eb309.zip | |
Merge the latest trunk changes into the sessions branch.
FossilOrigin-Name: eb036d6f81e15bac013316bf5b1b2ba3e0bd4605
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 15ef2181a..66cacc130 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -2327,6 +2327,8 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ if( choice==DB_ONECOLUMN ){ if( rc==TCL_OK ){ Tcl_SetObjResult(interp, dbEvalColumnValue(&sEval, 0)); + }else if( rc==TCL_BREAK ){ + Tcl_ResetResult(interp); } }else if( rc==TCL_BREAK || rc==TCL_OK ){ Tcl_SetObjResult(interp, Tcl_NewBooleanObj(rc==TCL_OK)); |