diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-04-26 13:52:58 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-04-26 13:52:58 (GMT) |
| commit | 559b06ad27d1a68be117a331a2f62219b2daa6f5 (patch) | |
| tree | 502e16aa19987a0abef1d255638a9d39a00bd4ab /unix/tclUnixFCmd.c | |
| parent | bfcb55a861fe14618d3244a4da3617595e1e2444 (diff) | |
| parent | 16b4e79286e53eb98ef501a25def03233fda42bc (diff) | |
| download | tcl-559b06ad27d1a68be117a331a2f62219b2daa6f5.zip tcl-559b06ad27d1a68be117a331a2f62219b2daa6f5.tar.gz tcl-559b06ad27d1a68be117a331a2f62219b2daa6f5.tar.bz2 | |
merge trunk
Diffstat (limited to 'unix/tclUnixFCmd.c')
| -rw-r--r-- | unix/tclUnixFCmd.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index e3d9022..fce071f 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -1387,11 +1387,9 @@ GetOwnerAttribute( *attributePtrPtr = Tcl_NewIntObj((int) statBuf.st_uid); } else { Tcl_DString ds; - const char *utf; - utf = Tcl_ExternalToUtfDString(NULL, pwPtr->pw_name, -1, &ds); - *attributePtrPtr = Tcl_NewStringObj(utf, Tcl_DStringLength(&ds)); - Tcl_DStringFree(&ds); + (void) Tcl_ExternalToUtfDString(NULL, pwPtr->pw_name, -1, &ds); + *attributePtrPtr = TclDStringToObj(&ds); } return TCL_OK; } |