From b50093ad28b7f068da38ed0c702aa8c615584576 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Thu, 13 Nov 2014 01:50:46 +0900
Subject: garbage collect when open(2) fails with ENFILE or EMFILE

---
 src/io.c | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/io.c b/src/io.c
index e6d289c65..d7e1b0fba 100644
--- a/src/io.c
+++ b/src/io.c
@@ -374,7 +374,7 @@ mrb_io_s_sysopen(mrb_state *mrb, mrb_value klass)
   mrb_value mode = mrb_nil_value();
   mrb_int fd, flags, perm = -1;
   const char *pat;
-  int modenum;
+  int modenum, retry = FALSE;
 
   mrb_get_args(mrb, "S|Si", &path, &mode, &perm);
   if (mrb_nil_p(mode)) {
@@ -388,8 +388,18 @@ mrb_io_s_sysopen(mrb_state *mrb, mrb_value klass)
   flags = mrb_io_modestr_to_flags(mrb, mrb_string_value_cstr(mrb, &mode));
   modenum = mrb_io_flags_to_modenum(mrb, flags);
 
+ reopen:
   fd = open(pat, modenum, perm);
   if (fd == -1) {
+    if (!retry) {
+      switch (errno) {
+      case ENFILE:
+      case EMFILE:
+        mrb_garbage_collect(mrb);
+        retry = TRUE;
+        goto reopen;
+      }
+    }
     mrb_sys_fail(mrb, pat);
   }
 
-- 
cgit v1.2.3