diff options
| author | drh <drh@noemail.net> | 2000-06-02 01:17:37 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2000-06-02 01:17:37 +0000 |
| commit | 58b9576b7ab3e6d06836f2a1cd8b2bdcfe9758bb (patch) | |
| tree | 3a2924d36d72c801f074c8516f38722d8a5074ad /src/tclsqlite.c | |
| parent | 5494880a71a6086ee561b8365bf0d8a2a8cfff10 (diff) | |
| download | sqlite-58b9576b7ab3e6d06836f2a1cd8b2bdcfe9758bb.tar.gz sqlite-58b9576b7ab3e6d06836f2a1cd8b2bdcfe9758bb.zip | |
:-) (CVS 34)
FossilOrigin-Name: 52338f4ab5990fefc61f615cd65c3a724b365199
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index e261791cc..1499cf6e2 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -23,7 +23,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.3 2000/05/30 13:44:20 drh Exp $ +** $Id: tclsqlite.c,v 1.4 2000/06/02 01:17:38 drh Exp $ */ #include "sqlite.h" #include <tcl.h> @@ -201,7 +201,7 @@ static int DbMain(void *cd, Tcl_Interp *interp, int argc, char **argv){ return TCL_ERROR; } if( argc==3 ){ - mode = 0; + mode = 0666; }else if( Tcl_GetInt(interp, argv[3], &mode)!=TCL_OK ){ return TCL_ERROR; } |