allow readonly access when write permission denied (CVS 131)
FossilOrigin-Name: 897b4bc0e92a2c7534d4fa9453a7f8f863fce67a
diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index dc9894c..11221a7 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -23,7 +23,7 @@
*************************************************************************
** A TCL Interface to SQLite
**
-** $Id: tclsqlite.c,v 1.7 2000/08/04 14:56:25 drh Exp $
+** $Id: tclsqlite.c,v 1.8 2000/08/17 09:50:00 drh Exp $
*/
#include "sqlite.h"
#include <tcl.h>
@@ -329,6 +329,7 @@
*/
int Sqlite_Init(Tcl_Interp *interp){
Tcl_CreateCommand(interp, "sqlite", DbMain, 0, 0);
+ Tcl_PkgProvide(interp, "sqlite", "1.0");
return TCL_OK;
}
int Sqlite_SafeInit(Tcl_Interp *interp){