diff options
| author | drh <drh@noemail.net> | 2010-08-25 20:35:51 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2010-08-25 20:35:51 +0000 |
| commit | 1cca0d221d2b2e407d07da88f7d22a0efdffdf4b (patch) | |
| tree | 77cf152806af12e81cfeec730588db11edda0cdd /src | |
| parent | 4c0f1649aca8be3a3b1c0311d35cd146008f7efe (diff) | |
| download | sqlite-1cca0d221d2b2e407d07da88f7d22a0efdffdf4b.tar.gz sqlite-1cca0d221d2b2e407d07da88f7d22a0efdffdf4b.zip | |
Reinstate the "sqlite" alias for backwards compatibility (but leave
it undocumented) but remove the PackageProvide for "sqlite".
FossilOrigin-Name: 699cc6b48774be111f2e076cc1920ae79497dcea
Diffstat (limited to 'src')
| -rw-r--r-- | src/tclsqlite.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index acc63998a..2872896a7 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3019,10 +3019,15 @@ 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 + +#ifndef SQLITE_3_SUFFIX_ONLY + /* The "sqlite" alias is undocumented. It is here only to support + ** legacy scripts. All new scripts should use only the "sqlite3" + ** command. + */ 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); } |