2 files changed, 15 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 4e0f6aa05f..945cd41494 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jul 20 18:07:11 2005  Tanaka Akira  <akr@m17n.org>
+
+	* io.c (rb_io_ctl): update FMODE_WSPLIT_INITIALIZED and FMODE_WSPLIT 
+	  by F_SETFL.
+
 Wed Jul 20 10:04:51 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* variable.c (rb_class_path): need to adjust snprintf() len for
diff --git a/io.c b/io.c
index 746add0025..e0e48ac3bc 100644
--- a/io.c
+++ b/io.c
@@ -4725,6 +4725,16 @@ rb_io_ctl(io, req, arg, io_p)
 	io_cntl(fileno(fptr->f2), cmd, narg, io_p);
     }
 
+    if (!io_p && cmd == F_SETFL) {
+      if (narg & O_NONBLOCK) {
+        fptr->mode |= FMODE_WSPLIT_INITIALIZED;
+        fptr->mode &= ~FMODE_WSPLIT;
+      }
+      else {
+        fptr->mode &= ~(FMODE_WSPLIT_INITIALIZED|FMODE_WSPLIT);
+      }
+    }
+
     return INT2NUM(retval);
 #else
     rb_notimplement();