diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-12-12 16:25:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-12-12 16:25:36 (GMT) |
| commit | 2d4cbda26a793477fc9babffdce1b3bc521ee551 (patch) | |
| tree | a9053bfa6e80173c75f332471d6f120187ecb209 /unix/dltest | |
| parent | e168187cdd79d76ce92d760218fe7bec7d3dcf32 (diff) | |
| parent | f58d1bd1d652773fa234b05b9bda55f7d1a9ea42 (diff) | |
| download | tcl-griffin_numlevels.zip tcl-griffin_numlevels.tar.gz tcl-griffin_numlevels.tar.bz2 | |
merge 8.5griffin_numlevels
Diffstat (limited to 'unix/dltest')
| -rw-r--r-- | unix/dltest/pkgb.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index 51c1bd9..489f66b 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -84,8 +84,7 @@ Pkgb_UnsafeObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *CONST objv[]) /* Argument objects. */ { - Tcl_SetObjResult(interp, Tcl_NewStringObj("unsafe command invoked", -1)); - return TCL_OK; + return Tcl_EvalEx(interp, "list unsafe command invoked", -1, TCL_EVAL_GLOBAL); } /* @@ -112,10 +111,10 @@ 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_PkgProvide(interp, "Pkgb", "2.3"); + code = Tcl_PkgProvideEx(interp, "Pkgb", "2.3", NULL); if (code != TCL_OK) { return code; } @@ -150,10 +149,10 @@ 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_PkgProvide(interp, "Pkgb", "2.3"); + code = Tcl_PkgProvideEx(interp, "Pkgb", "2.3", NULL); if (code != TCL_OK) { return code; } |