diff options
| author | drh <drh@noemail.net> | 2009-01-14 23:38:02 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2009-01-14 23:38:02 +0000 |
| commit | a81c64a2da4369f097c6628494a4ba50788b5b2a (patch) | |
| tree | 3da882f267de85d03a96296671d5f069c56ede31 /src/tclsqlite.c | |
| parent | 8f800a7d4255821dbda28dd47d3aec61bedb132d (diff) | |
| download | sqlite-a81c64a2da4369f097c6628494a4ba50788b5b2a.tar.gz sqlite-a81c64a2da4369f097c6628494a4ba50788b5b2a.zip | |
Make some changes requested by Fedora. (CVS 6181)
FossilOrigin-Name: 7bc08bc719c2e9ca6d92d4709c0478e15fdfb131
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 70cdfc9f4..0e35f41e4 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -12,7 +12,7 @@ ** A TCL Interface to SQLite. Append this file to sqlite3.c and ** compile the whole thing to build a TCL-enabled version of SQLite. ** -** $Id: tclsqlite.c,v 1.233 2009/01/02 17:33:46 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.234 2009/01/14 23:38:03 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -2705,7 +2705,7 @@ int TCLSH_MAIN(int argc, char **argv){ } if( TCLSH==1 && Tcl_EvalFile(interp, argv[1])!=TCL_OK ){ const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); - if( zInfo==0 ) zInfo = interp->result; + if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp); fprintf(stderr,"%s: %s\n", *argv, zInfo); return 1; } |