diff options
author | dgp <dgp@noemail.net> | 2012-01-27 21:56:52 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2012-01-27 21:56:52 (GMT) |
commit | 286099cf99a695b5e64c685d222cda59c2927382 (patch) | |
tree | f4482a0b82fb53236a1951b0d815fc6f2b21a95e /generic/tclCmdAH.c | |
parent | 2a8463ea617f902adea62ca2ba4191c6db2f49ff (diff) | |
download | tcl-286099cf99a695b5e64c685d222cda59c2927382.zip tcl-286099cf99a695b5e64c685d222cda59c2927382.tar.gz tcl-286099cf99a695b5e64c685d222cda59c2927382.tar.bz2 |
3479689 New internal routine TclJoinPath().
Refactor all the *Join*Path* routines to give them more useful interfaces
that are easier to manage getting the refcounts right.
FossilOrigin-Name: 55c8c6c1552f0cd51a3b76c0ca7a6ddf3e514ad0
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 d036bd6..2308f33 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -1841,7 +1841,7 @@ PathJoinCmd( Tcl_WrongNumArgs(interp, 1, objv, "name ?name ...?"); return TCL_ERROR; } - Tcl_SetObjResult(interp, Tcl_FSJoinToPath(NULL, objc - 1, objv + 1)); + Tcl_SetObjResult(interp, TclJoinPath(objc - 1, objv + 1)); return TCL_OK; } |