diff options
| author | drh <drh@noemail.net> | 2010-08-25 19:39:19 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2010-08-25 19:39:19 +0000 |
| commit | 4c0f1649aca8be3a3b1c0311d35cd146008f7efe (patch) | |
| tree | d5e538f718aa1ebd48d1786aa562c35781b8ad4f /src/tclsqlite.c | |
| parent | f836afd44a1613a8c166b15e39ef7e997aecf7db (diff) | |
| download | sqlite-4c0f1649aca8be3a3b1c0311d35cd146008f7efe.tar.gz sqlite-4c0f1649aca8be3a3b1c0311d35cd146008f7efe.zip | |
Disable the legacy "sqlite" command in the TCL interface. Provide only
the "sqlite3" command.
FossilOrigin-Name: 909b3d8862aeae04611969f5fc27d32a82026767
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 5b5b4b383..acc63998a 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3019,8 +3019,10 @@ int Sqlite3_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.4", 0); Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); +#if 0 Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); Tcl_PkgProvide(interp, "sqlite", PACKAGE_VERSION); +#endif return TCL_OK; } int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } |