diff options
| author | drh <drh@noemail.net> | 2007-02-01 01:53:44 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2007-02-01 01:53:44 +0000 |
| commit | 3e701a187ece479c06a2d1c854b990d18c963cf5 (patch) | |
| tree | c830d5d33d938b098787a8de40ddbbb928b4d02b /src/tclsqlite.c | |
| parent | ca83ac51b3b038cb72300d28a7227375bc989f3d (diff) | |
| download | sqlite-3e701a187ece479c06a2d1c854b990d18c963cf5.tar.gz sqlite-3e701a187ece479c06a2d1c854b990d18c963cf5.zip | |
Fix a bug in the copy method of the TCL interface. Ticket #2201. (CVS 3623)
FossilOrigin-Name: 936263966ea70792e8abb712730f78cafa1fdbad
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index cd48cf5d4..5ee978423 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.175 2006/12/19 18:57:11 drh Exp $ +** $Id: tclsqlite.c,v 1.176 2007/02/01 01:53:44 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -1055,7 +1055,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ return TCL_ERROR; } nByte = strlen(zSql); - rc = sqlite3_prepare(pDb->db, zSql, 0, &pStmt, 0); + rc = sqlite3_prepare(pDb->db, zSql, -1, &pStmt, 0); sqlite3_free(zSql); if( rc ){ Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), 0); @@ -1081,7 +1081,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ } zSql[j++] = ')'; zSql[j] = 0; - rc = sqlite3_prepare(pDb->db, zSql, 0, &pStmt, 0); + rc = sqlite3_prepare(pDb->db, zSql, -1, &pStmt, 0); free(zSql); if( rc ){ Tcl_AppendResult(interp, "Error: ", sqlite3_errmsg(pDb->db), 0); |