File sqlite2-tcl.diff of Package sqlite2

Overview Repositories Revisions Requests Users Attributes Meta

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);

Places

File sqlite2-tcl.diff of Package sqlite2

Places