diff options
| author | drh <drh@noemail.net> | 2004-06-29 11:26:59 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2004-06-29 11:26:59 +0000 |
| commit | b97759ed11a2bf80265afee2c1c8b431c8c67201 (patch) | |
| tree | e968038f3a7b8d54f83c06ddaf4fdca7854308ed /src/tclsqlite.c | |
| parent | fd69dd6b3d137d075a7b57f3eceb1bbce3e6f17b (diff) | |
| download | sqlite-b97759ed11a2bf80265afee2c1c8b431c8c67201.tar.gz sqlite-b97759ed11a2bf80265afee2c1c8b431c8c67201.zip | |
Add testing for sqlite3_trace() and fix a bug. (CVS 1760)
FossilOrigin-Name: 7a15391079ae9ce5360fa13e8779c8872885e789
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 361aa59db..ab08ad4f1 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.90 2004/06/21 06:50:28 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.91 2004/06/29 11:26:59 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -858,6 +858,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ case DB_TRACE: { if( objc>3 ){ Tcl_WrongNumArgs(interp, 2, objv, "?CALLBACK?"); + return TCL_ERROR; }else if( objc==2 ){ if( pDb->zTrace ){ Tcl_AppendResult(interp, pDb->zTrace, 0); |