source/tcl/expect/expect.exp_main_tk.c.version.require.diff


1
2
3
4
5
6
7
8
9
10
11

--- ./exp_main_tk.c.orig	2007-07-11 15:22:10.000000000 -0500
+++ ./exp_main_tk.c	2009-05-11 16:26:15.000000000 -0500
@@ -374,7 +374,7 @@
 	    goto done;
 	}
     }
-    if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) {
+    if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 0) == NULL) {
 	code = TCL_ERROR;
 	goto done;
     }