diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-16 08:33:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-16 08:33:13 (GMT) |
| commit | da19d0dd6c320026b45f407302a2d0f55d67777f (patch) | |
| tree | 19ecb9097ee39ac7b4dd159873af1be0a2802f4f /unix/tclUnixNotfy.c | |
| parent | adecc7a1e1a45aab0805e6cb440eb3adf09e486a (diff) | |
| parent | 5dff38707576522b97793ce6ad8024b0f92895bb (diff) | |
| download | tcl-da19d0dd6c320026b45f407302a2d0f55d67777f.zip tcl-da19d0dd6c320026b45f407302a2d0f55d67777f.tar.gz tcl-da19d0dd6c320026b45f407302a2d0f55d67777f.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"); } |