diff options
| author | drh <drh@noemail.net> | 2005-01-12 00:08:24 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2005-01-12 00:08:24 +0000 |
| commit | c8f9079c61cb4d4dc79d5b6cfa7bfadc45b729ff (patch) | |
| tree | 8333cb9f9852e184fc482e18fa1e70066c5b158d /src/tclsqlite.c | |
| parent | ac931eb93bfbfbafe963270421750e98e3c09e82 (diff) | |
| download | sqlite-c8f9079c61cb4d4dc79d5b6cfa7bfadc45b729ff.tar.gz sqlite-c8f9079c61cb4d4dc79d5b6cfa7bfadc45b729ff.zip | |
Fix a bug in tclsqlite.c. (CVS 2199)
FossilOrigin-Name: 50f1e229652610b386745bb39fed45549cc74aa7
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 3535bbbf3..7561fdc63 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.112 2005/01/08 18:42:29 drh Exp $ +** $Id: tclsqlite.c,v 1.113 2005/01/12 00:08:25 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -750,7 +750,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ } for(i=1; i<=nVar; i++){ const char *zVar = sqlite3_bind_parameter_name(pStmt, i); - if( zVar[0]=='$' || zVar[0]==':' ){ + if( zVar!=0 && (zVar[0]=='$' || zVar[0]==':') ){ Tcl_Obj *pVar = Tcl_GetVar2Ex(interp, &zVar[1], 0, 0); if( pVar ){ int n; |