diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 09:32:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 09:32:32 (GMT) |
| commit | 9394984c31c5ff3087bbdc784811b2d57fda1114 (patch) | |
| tree | f5ec627adfbd07b7dc0f810e04d91ad232cc5ba3 /unix/tclUnixFile.c | |
| parent | a728d03f7d2b232dbc44f2669d8eb326b1029d3d (diff) | |
| parent | dedbad27485a6129dc66cda6bb0c9f51ba639ae5 (diff) | |
| download | tcl-9394984c31c5ff3087bbdc784811b2d57fda1114.zip tcl-9394984c31c5ff3087bbdc784811b2d57fda1114.tar.gz tcl-9394984c31c5ff3087bbdc784811b2d57fda1114.tar.bz2 | |
merge novem
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 9f77df2..1b380d8 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -938,7 +938,6 @@ TclpObjLink( */ if (linkAction & TCL_CREATE_SYMBOLIC_LINK) { - size_t targetLen; Tcl_DString ds; Tcl_Obj *transPtr; @@ -953,8 +952,7 @@ TclpObjLink( return NULL; } target = TclGetString(transPtr); - targetLen = transPtr->length; - target = Tcl_UtfToExternalDString(NULL, target, targetLen, &ds); + target = Tcl_UtfToExternalDString(NULL, target, transPtr->length, &ds); Tcl_DecrRefCount(transPtr); if (symlink(target, src) != 0) { |