diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-10 20:21:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-10 20:21:45 (GMT) |
| commit | 84be29734969e1c4a15df99cc315e4d192b3d9be (patch) | |
| tree | 621d7c4157913aebb726157e299421c23ef7f9a2 /unix | |
| parent | fd66152700fc5a0fc6ef397fb8cf5299b23f0982 (diff) | |
| download | tcl-84be29734969e1c4a15df99cc315e4d192b3d9be.zip tcl-84be29734969e1c4a15df99cc315e4d192b3d9be.tar.gz tcl-84be29734969e1c4a15df99cc315e4d192b3d9be.tar.bz2 | |
Tcl_GetEncodingSearchPath() is available since Tcl 8.5
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/dltest/pkgb.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index d28036f..2d525bc 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -98,19 +98,7 @@ Pkgb_DemoObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { -#if (TCL_MAJOR_VERSION > 8) || (TCL_MINOR_VERSION > 4) - Tcl_Obj *first; - (void)dummy; - (void)objc; - (void)objv; - - if (Tcl_ListObjIndex(NULL, Tcl_GetEncodingSearchPath(), 0, &first) - == TCL_OK) { - Tcl_SetObjResult(interp, first); - } -#else - Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetDefaultEncodingDir(), -1)); -#endif + Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetEncodingSearchPath(), -1)); return TCL_OK; } |