diff options
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) { |