diff options
Diffstat (limited to 'unix/dltest')
-rw-r--r-- | unix/dltest/pkgb.c | 4 | ||||
-rw-r--r-- | unix/dltest/pkge.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index 6d0d2e2..489f66b 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -111,7 +111,7 @@ Pkgb_Init( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.5-9.1", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvideEx(interp, "Pkgb", "2.3", NULL); @@ -149,7 +149,7 @@ Pkgb_SafeInit( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.5-9.1", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvideEx(interp, "Pkgb", "2.3", NULL); diff --git a/unix/dltest/pkge.c b/unix/dltest/pkge.c index abd2359..e1e5d41 100644 --- a/unix/dltest/pkge.c +++ b/unix/dltest/pkge.c @@ -41,5 +41,5 @@ Pkge_Init( if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } - return Tcl_Eval(interp, script); + return Tcl_EvalEx(interp, script, -1, 0); } |