diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-07 12:37:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-07 12:37:14 (GMT) |
| commit | 5dafe4ef8d8cdadb34bb45b7c3608c843bca623b (patch) | |
| tree | b34054e2d1c9a7f2e2ab2238d182984ec14ba933 /unix | |
| parent | 252431a635b7659d22579fcd187264884472c72f (diff) | |
| parent | 55328af8909d074b8715cb5c50453d0d6e0149e4 (diff) | |
| download | tcl-better_deprecation_85.zip tcl-better_deprecation_85.tar.gz tcl-better_deprecation_85.tar.bz2 | |
merge core-8-5-branch.better_deprecation_85
eliminate more deprecated calls
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/dltest/pkgb.c | 4 | ||||
| -rw-r--r-- | unix/dltest/pkge.c | 2 | ||||
| -rw-r--r-- | unix/tclUnixInit.c | 2 |
3 files changed, 4 insertions, 4 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); } diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index e2037d7..b211d3a 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -912,7 +912,7 @@ TclpSetVariables( } else #endif /* HAVE_COREFOUNDATION */ { - Tcl_SetVar(interp, "tcl_pkgPath", pkgPath, TCL_GLOBAL_ONLY); + Tcl_SetVar2Ex(interp, "tcl_pkgPath", NULL, Tcl_NewStringObj(pkgPath, -1), TCL_GLOBAL_ONLY); } #ifdef DJGPP |