diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-07-16 08:33:13 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-07-16 08:33:13 (GMT) |
| commit | 57f8a9e30a016be570168ba9e82367338780dc29 (patch) | |
| tree | 19ecb9097ee39ac7b4dd159873af1be0a2802f4f /unix/tclUnixNotfy.c | |
| parent | 5d0e68e85f6db35dc2c8290574ed51501af97b53 (diff) | |
| parent | 24cb6a7f513a872e861626174e9cdd7ff1da3326 (diff) | |
| download | tcl-57f8a9e30a016be570168ba9e82367338780dc29.zip tcl-57f8a9e30a016be570168ba9e82367338780dc29.tar.gz tcl-57f8a9e30a016be570168ba9e82367338780dc29.tar.bz2 | |
merge trunk
Diffstat (limited to 'unix/tclUnixNotfy.c')
| -rw-r--r-- | unix/tclUnixNotfy.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c index c1bc430..ca95f40 100644 --- a/unix/tclUnixNotfy.c +++ b/unix/tclUnixNotfy.c @@ -895,7 +895,7 @@ Tcl_WaitForEvent( waitingListPtr = tsdPtr; tsdPtr->onList = 1; - if (write(triggerPipe, "", 1) != 1) { + if ((write(triggerPipe, "", 1) == -1) && (errno != EAGAIN)) { Tcl_Panic("Tcl_WaitForEvent: %s", "unable to write to triggerPipe"); } @@ -958,7 +958,7 @@ Tcl_WaitForEvent( } tsdPtr->nextPtr = tsdPtr->prevPtr = NULL; tsdPtr->onList = 0; - if (write(triggerPipe, "", 1) != 1) { + if ((write(triggerPipe, "", 1) == -1) && (errno != EAGAIN)) { Tcl_Panic("Tcl_WaitForEvent: %s", "unable to write to triggerPipe"); } |