diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-08-11 21:24:22 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-08-11 21:24:22 (GMT) |
commit | 944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac (patch) | |
tree | 27fde8f62082347078d925d76441498acc190a4a /win/tclWinFile.c | |
parent | 9dee089fa2567d307056363c20eb69c53b4e1655 (diff) | |
parent | 88b202715dfbdfc05b7ce33d7f176595620496be (diff) | |
download | tcl-944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac.zip tcl-944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac.tar.gz tcl-944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac.tar.bz2 |
merge trunk
Diffstat (limited to 'win/tclWinFile.c')
-rw-r--r-- | win/tclWinFile.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 1f56060..a44a257 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -1048,10 +1048,9 @@ TclpMatchInDirectory( TclWinConvertError(err); if (interp != NULL) { - Tcl_ResetResult(interp); - Tcl_AppendResult(interp, "couldn't read directory \"", - Tcl_DStringValue(&dsOrig), "\": ", - Tcl_PosixError(interp), NULL); + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "couldn't read directory \"%s\": %s", + Tcl_DStringValue(&dsOrig), Tcl_PosixError(interp))); } Tcl_DStringFree(&dsOrig); return TCL_ERROR; @@ -1866,8 +1865,9 @@ TclpGetCwd( if (GetCurrentDirectory(MAX_PATH, buffer) == 0) { TclWinConvertError(GetLastError()); if (interp != NULL) { - Tcl_AppendResult(interp, "error getting working directory name: ", - Tcl_PosixError(interp), NULL); + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "error getting working directory name: %s", + Tcl_PosixError(interp))); } return NULL; } |