From bd4d397ca95c86c775a8b7fecd9ebb19d07cec78 Mon Sep 17 00:00:00 2001 From: drh Date: Fri, 4 Apr 2008 12:21:08 +0000 Subject: Fix the TCL interface so that it does not use unpublished interfaces. (CVS 4965) FossilOrigin-Name: 046a98a8c88be7389c1571a819ccf1907a3f7217 --- src/tclsqlite.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/tclsqlite.c') 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 @@ -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); -- cgit v1.2.3