diff options
| author | dan <dan@noemail.net> | 2011-08-18 17:47:57 +0000 |
|---|---|---|
| committer | dan <dan@noemail.net> | 2011-08-18 17:47:57 +0000 |
| commit | d5f12cd54d91fc857890cb846f62f3f65a1d3f36 (patch) | |
| tree | 2a2a6828ed0d4245819a0fe6436044d213dc33a6 /src/tclsqlite.c | |
| parent | 6a3eb4aef3cad4d4d1adeb4364bfa8ca7f4ee130 (diff) | |
| download | sqlite-d5f12cd54d91fc857890cb846f62f3f65a1d3f36.tar.gz sqlite-d5f12cd54d91fc857890cb846f62f3f65a1d3f36.zip | |
Ensure that the Tcl "db onecolumn" command returns an empty string if the SELECT statement returns zero rows.
FossilOrigin-Name: 928bcaf0f00a408e2f6c1d85dfab214457f52ad5
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 339b8967d..d2a0582e4 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -2242,6 +2242,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)); |