diff options
| author | dan <dan@noemail.net> | 2010-06-22 11:10:40 +0000 |
|---|---|---|
| committer | dan <dan@noemail.net> | 2010-06-22 11:10:40 +0000 |
| commit | 3c3dd7b927c2438a5b002011df4d2b7f5aa26e98 (patch) | |
| tree | 3bc4b216bfaeab851c7436c049792d42542250ac /src/tclsqlite.c | |
| parent | 39cf51097f676bcd93c65efd1e8e1e0dec850dc1 (diff) | |
| download | sqlite-3c3dd7b927c2438a5b002011df4d2b7f5aa26e98.tar.gz sqlite-3c3dd7b927c2438a5b002011df4d2b7f5aa26e98.zip | |
i
Fix problem with handling of -vfs option in tcl interface.
FossilOrigin-Name: 8f98e8b5a557db5759747f3aae5ea01fb0d1f455
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 85126f455..d56422377 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -2897,8 +2897,7 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ if( strcmp(zArg,"-key")==0 ){ pKey = Tcl_GetByteArrayFromObj(objv[i+1], &nKey); }else if( strcmp(zArg, "-vfs")==0 ){ - i++; - zVfs = Tcl_GetString(objv[i]); + zVfs = Tcl_GetString(objv[i+1]); }else if( strcmp(zArg, "-readonly")==0 ){ int b; if( Tcl_GetBooleanFromObj(interp, objv[i+1], &b) ) return TCL_ERROR; |