diff options
| author | zv@archiware.com <vasiljevic> | 2006-09-07 18:49:27 (GMT) |
|---|---|---|
| committer | zv@archiware.com <vasiljevic> | 2006-09-07 18:49:27 (GMT) |
| commit | 966f57bf2974c9b6d9adde3798d6bc30a1bf5d73 (patch) | |
| tree | 8b1daadcd5787a5240b4cde6e87959baf69b496c /unix/tclUnixFCmd.c | |
| parent | d894c607f79e14ff6f1b4e3ade6298d25a07dfff (diff) | |
| download | tcl-966f57bf2974c9b6d9adde3798d6bc30a1bf5d73.zip tcl-966f57bf2974c9b6d9adde3798d6bc30a1bf5d73.tar.gz tcl-966f57bf2974c9b6d9adde3798d6bc30a1bf5d73.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 \"", |