diff options
| author | drh <drh@noemail.net> | 2008-04-04 12:21:08 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2008-04-04 12:21:08 +0000 |
| commit | bd4d397ca95c86c775a8b7fecd9ebb19d07cec78 (patch) | |
| tree | eae0ed5970d03ef722d4c79b81e0048950e2278f /src/tclsqlite.c | |
| parent | d094db1c7b0b1a5abeb5bf585cfd601f19ff5e7f (diff) | |
| download | sqlite-bd4d397ca95c86c775a8b7fecd9ebb19d07cec78.tar.gz sqlite-bd4d397ca95c86c775a8b7fecd9ebb19d07cec78.zip | |
Fix the TCL interface so that it does not use unpublished interfaces. (CVS 4965)
FossilOrigin-Name: 046a98a8c88be7389c1571a819ccf1907a3f7217
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 9e49d039e..7210faed6 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -12,7 +12,7 @@ ** A TCL Interface to SQLite. Append this file to sqlite3.c and ** compile the whole thing to build a TCL-enabled version of SQLite. ** -** $Id: tclsqlite.c,v 1.212 2008/03/25 16:16:29 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.213 2008/04/04 12:21:09 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -1340,11 +1340,11 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ Tcl_AppendResult(interp,"Error: non-null separator required for copy",0); return TCL_ERROR; } - if(sqlite3StrICmp(zConflict, "rollback") != 0 && - sqlite3StrICmp(zConflict, "abort" ) != 0 && - sqlite3StrICmp(zConflict, "fail" ) != 0 && - sqlite3StrICmp(zConflict, "ignore" ) != 0 && - sqlite3StrICmp(zConflict, "replace" ) != 0 ) { + if(strcasecmp(zConflict, "rollback") != 0 && + strcasecmp(zConflict, "abort" ) != 0 && + strcasecmp(zConflict, "fail" ) != 0 && + strcasecmp(zConflict, "ignore" ) != 0 && + strcasecmp(zConflict, "replace" ) != 0 ) { Tcl_AppendResult(interp, "Error: \"", zConflict, "\", conflict-algorithm must be one of: rollback, " "abort, fail, ignore, or replace", 0); |