2 files changed, 8 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index dae78d955..741bb163b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Feb  6 23:28:33 2009  Tanaka Akira  <akr@fsij.org>
+
+	* io.c (io_fread): use rb_io_wait_readable for retry
+	  avoid Errno::EINTR on ruby -e 'trap(:CHLD) {}; spawn("sleep 1"); STDIN.read'
+
 Fri Feb  6 20:37:42 2009  Tanaka Akira  <akr@fsij.org>
 
 	* signal.c (register_sigaltstack): ignore sigaltstack error.
diff --git a/io.c b/io.c
index 7a9695c37..50eaa5f26 100644
--- a/io.c
+++ b/io.c
@@ -1428,12 +1428,15 @@ io_fread(VALUE str, long offset, rb_io_t *fptr)
 
     if (READ_DATA_PENDING(fptr) == 0) {
 	while (n > 0) {
+          again:
 	    c = rb_read_internal(fptr->fd, RSTRING_PTR(str)+offset, n);
 	    if (c == 0) {
 		io_set_eof(fptr);
 		break;
 	    }
 	    if (c < 0) {
+                if (rb_io_wait_readable(fptr->fd))
+                    goto again;
 		rb_sys_fail_path(fptr->pathv);
 	    }
 	    offset += c;