database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00
Code Activity

Make some changes requested by Fedora. (CVS 6181)

Browse Source 
FossilOrigin-Name: 7bc08bc719c2e9ca6d92d4709c0478e15fdfb131
This commit is contained in:
drh
2009-01-14 23:38:02 +00:00
parent 8f800a7d42
commit a81c64a2da
6 changed files with 21 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/tclsqlite.c
View File

@@ -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;
}