diff options
| author | vasiljevic <zv@archiware.com> | 2006-09-07 18:49:27 (GMT) |
|---|---|---|
| committer | vasiljevic <zv@archiware.com> | 2006-09-07 18:49:27 (GMT) |
| commit | b98d8af767943c732d5b80448d159a9a6cbb1b09 (patch) | |
| tree | 8b1daadcd5787a5240b4cde6e87959baf69b496c /unix/tclUnixFCmd.c | |
| parent | 138c8d79c7b465225b655c4a273b13ffb2b5978c (diff) | |
| download | tcl-b98d8af767943c732d5b80448d159a9a6cbb1b09.zip tcl-b98d8af767943c732d5b80448d159a9a6cbb1b09.tar.gz tcl-b98d8af767943c732d5b80448d159a9a6cbb1b09.tar.bz2 | |
* unix/tclUnixFCmd.c: Removed some false tests added
(and left by mistake) by fixing the Tcl Bug: 999544
* unix/tclUnixCompat.c: Added fallback to MT-unsafe
library calls if TCL_THREADS is not defined.
Fixed alignment of arrays copied by CopyArrayi() to be
on the sizeof(char *) boundary.
Diffstat (limited to 'unix/tclUnixFCmd.c')
| -rw-r--r-- | unix/tclUnixFCmd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index dc003ce..17432cc 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixFCmd.c,v 1.28.2.12 2006/09/07 08:50:36 vasiljevic Exp $ + * RCS: @(#) $Id: tclUnixFCmd.c,v 1.28.2.13 2006/09/07 18:49:28 vasiljevic Exp $ * * Portions of this code were derived from NetBSD source code which has * the following copyright notice: @@ -1422,7 +1422,7 @@ SetGroupAttribute(interp, objIndex, fileName, attributePtr) groupPtr = TclpGetGrNam(native); /* INTL: Native. */ Tcl_DStringFree(&ds); - if (result == -1 || groupPtr == NULL) { + if (groupPtr == NULL) { endgrent(); Tcl_AppendResult(interp, "could not set group for file \"", Tcl_GetString(fileName), "\": group \"", @@ -1484,7 +1484,7 @@ SetOwnerAttribute(interp, objIndex, fileName, attributePtr) pwPtr = TclpGetPwNam(native); /* INTL: Native. */ Tcl_DStringFree(&ds); - if (result == -1 || pwPtr == NULL) { + if (pwPtr == NULL) { endpwent(); Tcl_AppendResult(interp, "could not set owner for file \"", Tcl_GetString(fileName), "\": user \"", |