diff options
| author | rmax <rmax> | 2008-03-14 16:32:50 (GMT) |
|---|---|---|
| committer | rmax <rmax> | 2008-03-14 16:32:50 (GMT) |
| commit | 473838eabcddf5535160c095af0a1b71e68d48f7 (patch) | |
| tree | bcce11adaf2714eb933e590421dcf30d5320c424 /unix/tclUnixPipe.c | |
| parent | 25c98e6ecf1d1c3c2d355c446344111dd22b1a65 (diff) | |
| download | tcl-473838eabcddf5535160c095af0a1b71e68d48f7.zip tcl-473838eabcddf5535160c095af0a1b71e68d48f7.tar.gz tcl-473838eabcddf5535160c095af0a1b71e68d48f7.tar.bz2 | |
* generic/tclTest.c: Ignore the return value of write() when
* unix/tclUnixPipe.c: we are about to exit anyways.
Diffstat (limited to 'unix/tclUnixPipe.c')
| -rw-r--r-- | unix/tclUnixPipe.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index ab468b8..64b58a1 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.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: tclUnixPipe.c,v 1.41 2008/02/28 20:12:09 jenglish Exp $ + * RCS: @(#) $Id: tclUnixPipe.c,v 1.42 2008/03/14 16:32:52 rmax Exp $ */ #include "tclInt.h" @@ -463,7 +463,7 @@ TclpCreateProcess( ((dup2(1,2) == -1) || (fcntl(2, F_SETFD, 0) != 0)))) { sprintf(errSpace, "%dforked process couldn't set up input/output: ", errno); - write(fd, errSpace, (size_t) strlen(errSpace)); + (void)write(fd, errSpace, (size_t) strlen(errSpace)); _exit(1); } @@ -474,7 +474,7 @@ TclpCreateProcess( RestoreSignals(); execvp(newArgv[0], newArgv); /* INTL: Native. */ sprintf(errSpace, "%dcouldn't execute \"%.150s\": ", errno, argv[0]); - write(fd, errSpace, (size_t) strlen(errSpace)); + (void)write(fd, errSpace, (size_t) strlen(errSpace)); _exit(1); } |