diff options
| -rw-r--r-- | rts/posix/Select.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rts/posix/Select.c b/rts/posix/Select.c index 013b374d1a..1edf6bc690 100644 --- a/rts/posix/Select.c +++ b/rts/posix/Select.c @@ -218,12 +218,12 @@ awaitEvent(rtsBool wait) the RTS won't loop. */ if ( errno == EBADF ) { - unblock_all = rtsTrue; - break; + unblock_all = rtsTrue; + break; } else { - perror("select"); - barf("select failed"); - } + sysErrorBelch("select"); + stg_exit(EXIT_FAILURE); + } } /* We got a signal; could be one of ours. If so, we need |