diff options
| author | vasiljevic <vasiljevic@noemail.net> | 2006-09-07 18:49:27 (GMT) |
|---|---|---|
| committer | vasiljevic <vasiljevic@noemail.net> | 2006-09-07 18:49:27 (GMT) |
| commit | d0c510a8e2950dff75ccd6b48e5589d5675fbe17 (patch) | |
| tree | 8b1daadcd5787a5240b4cde6e87959baf69b496c /unix/tclUnixFCmd.c | |
| parent | 2c758ed1d5bf286a2f8e46f826a6a2f869945d76 (diff) | |
| download | tcl-d0c510a8e2950dff75ccd6b48e5589d5675fbe17.zip tcl-d0c510a8e2950dff75ccd6b48e5589d5675fbe17.tar.gz tcl-d0c510a8e2950dff75ccd6b48e5589d5675fbe17.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.
FossilOrigin-Name: 271fd1651142f68e75046eb09bc00c57d48dd3ab
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 \"", |