File sqlite2-tcl.diff of Package sqlite2
---
configure.ac | 2 +-
src/tclsqlite.c | 4 ++++
2 files changed, 5 insertions(+), 1 deletion(-)
Index: configure.ac
===================================================================
--- configure.ac.orig
+++ configure.ac
@@ -430,11 +430,11 @@ else
if test "$extra" != ""; then
LIBS=$extra
else
LIBS=""
AC_SEARCH_LIBS(Tcl_Init, dnl
- tcl8.4 tcl8.3 tcl84 tcl83 tcl,,,$otherlibs)
+ tcl8.6 tcl8.5 tcl8.4 tcl8.3 tcl84 tcl83 tcl,,,$otherlibs)
fi
TARGET_TCL_LIBS="$LIBS $otherlibs"
fi
AC_SUBST(TARGET_TCL_LIBS)
Index: src/tclsqlite.c
===================================================================
--- src/tclsqlite.c.orig
+++ src/tclsqlite.c
@@ -1229,10 +1229,14 @@ int Libsqlite_Init( Tcl_Interp *interp)
int TCLSH_MAIN(int argc, char **argv){
#ifndef TCL_THREADS
Tcl_Interp *interp;
Tcl_FindExecutable(argv[0]);
interp = Tcl_CreateInterp();
+ if (Tcl_Init(interp) == TCL_ERROR) {
+ fprintf(stderr,"%s\n",
+ Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY));
+ }
Libsqlite_Init(interp);
if( argc>=2 ){
int i;
Tcl_SetVar(interp,"argv0",argv[1],TCL_GLOBAL_ONLY);
Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY);