diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-06 07:59:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-06 07:59:01 (GMT) |
| commit | a59b6e0bf7d4ce8ce4bf1d5b5f994bc0adc60912 (patch) | |
| tree | 9726218d2767be111aba0feda74cd0ac220f4355 /unix/tclUnixFile.c | |
| parent | 47b9d4a19f065a528e365e8cf8ca5ae6bd5a8cb4 (diff) | |
| parent | ecec90b4aafbce89f57c1d810d440efc7df296ad (diff) | |
| download | tcl-a59b6e0bf7d4ce8ce4bf1d5b5f994bc0adc60912.zip tcl-a59b6e0bf7d4ce8ce4bf1d5b5f994bc0adc60912.tar.gz tcl-a59b6e0bf7d4ce8ce4bf1d5b5f994bc0adc60912.tar.bz2 | |
merge trunk
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index c213050..01fc6fe 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -310,10 +310,9 @@ TclpMatchInDirectory( if (d == NULL) { Tcl_DStringFree(&ds); 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); Tcl_DecrRefCount(fileNamePtr); @@ -771,9 +770,9 @@ TclpGetCwd( #endif { 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; } |