diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-11-22 13:58:37 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-11-22 13:58:37 (GMT) |
| commit | fb0f0b6c373000a8893904c0eea7580fdc902d20 (patch) | |
| tree | 894d2a54a48709df36b07da83c8ccc7bfa9115cf /generic/tclCmdAH.c | |
| parent | e537ff7be6133bfccde0c8e2de74610d17c0e94f (diff) | |
| parent | e4f3ce78e3bd0c816cb0a5377ab66a42f9eb7552 (diff) | |
| download | tcl-fb0f0b6c373000a8893904c0eea7580fdc902d20.zip tcl-fb0f0b6c373000a8893904c0eea7580fdc902d20.tar.gz tcl-fb0f0b6c373000a8893904c0eea7580fdc902d20.tar.bz2 | |
merge 8.5: fixes segfault [7a9dc52b29] and wrong normalization (inside TclJoinPath) for pure relative path-segments; test-cases extended and several windows-related are fixed.
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 7e117af..e6f1cd5 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -2127,7 +2127,7 @@ PathJoinCmd( Tcl_WrongNumArgs(interp, 1, objv, "name ?name ...?"); return TCL_ERROR; } - Tcl_SetObjResult(interp, TclJoinPath(objc - 1, objv + 1)); + Tcl_SetObjResult(interp, TclJoinPath(objc - 1, objv + 1, 0)); return TCL_OK; } |