2 files changed, 5 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 3b2abd1158..52c2d81b97 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jun 23 00:00:25 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* io.c (rb_io_initialize): should check fcntl result.  [ruby-dev:23742]
+
 Tue Jun 22 21:11:36 2004  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
 
 	* ext/win32ole/win32ole.c (OLE_FREE): should not call CoFreeUnuse-
diff --git a/io.c b/io.c
index 54c3dee767..24fad23a41 100644
--- a/io.c
+++ b/io.c
@@ -3748,6 +3748,7 @@ rb_io_initialize(argc, argv, io)
     else {
 #if defined(HAVE_FCNTL) && defined(F_GETFL)
 	flags = fcntl(fd, F_GETFL);
+	if (flags == -1) rb_sys_fail(0);
 #else
 	flags = O_RDONLY;
 #endif