Blame sqlite-2.8.17-tcl.patch
|
|
3bd7a42 |
Address problem using sqlite2 with Tcl-8.5
|
|
|
3bd7a42 |
Based on sqlite2-tcl.diff from OpenSuSE sqlite2-2.8.17-166.3.src.rpm
|
|
|
3bd7a42 |
diff -up sqlite-2.8.17/configure.ac.orig sqlite-2.8.17/configure.ac
|
|
|
3bd7a42 |
--- sqlite-2.8.17/configure.ac.orig
|
|
|
3bd7a42 |
+++ sqlite-2.8.17/configure.ac
|
|
|
3bd7a42 |
@@ -432,7 +432,7 @@
|
|
|
3bd7a42 |
else
|
|
|
3bd7a42 |
LIBS=""
|
|
|
3bd7a42 |
AC_SEARCH_LIBS(Tcl_Init, dnl
|
|
|
3bd7a42 |
- tcl8.4 tcl8.3 tcl84 tcl83 tcl,,,$otherlibs)
|
|
|
3c57fe6 |
+ tcl8.6 tcl8.5 tcl8.4 tcl8.3 tcl84 tcl83 tcl,,,$otherlibs)
|
|
|
3bd7a42 |
fi
|
|
|
3bd7a42 |
TARGET_TCL_LIBS="$LIBS $otherlibs"
|
|
|
3bd7a42 |
fi
|
|
|
3bd7a42 |
diff -up sqlite-2.8.17/src/tclsqlite.c.orig sqlite-2.8.17/src/tclsqlite.c
|
|
|
3bd7a42 |
--- sqlite-2.8.17/src/tclsqlite.c.orig
|
|
|
3bd7a42 |
+++ sqlite-2.8.17/src/tclsqlite.c
|
|
|
3bd7a42 |
@@ -1231,6 +1231,10 @@
|
|
|
3bd7a42 |
Tcl_Interp *interp;
|
|
|
3bd7a42 |
Tcl_FindExecutable(argv[0]);
|
|
|
3bd7a42 |
interp = Tcl_CreateInterp();
|
|
|
3bd7a42 |
+ if (Tcl_Init(interp) == TCL_ERROR) {
|
|
|
3bd7a42 |
+ fprintf(stderr,"%s\n",
|
|
|
3bd7a42 |
+ Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY));
|
|
|
3bd7a42 |
+ }
|
|
|
3bd7a42 |
Libsqlite_Init(interp);
|
|
|
3bd7a42 |
if( argc>=2 ){
|
|
|
3bd7a42 |
int i;
|