[ruby-dev:10978] [PATCH] require in require

なかだです。

$ cat a.rb
p __FILE__, $"
$ cat a/b.rb
p __FILE__, $"
require "a"
$ ruby -v -I. -ra/b -e0
ruby 1.6.0 (2000-09-19) [i686-cygwin]
"./a/b.rb"
["a/b.rb"]
./a/b.rb:2:in `require': Interrupt
        from ./a/b.rb:2

  てな感じでデッドロックします。

  一応こんな風にしてみました。


diff -pruPX ./.excludes current/eval.c devel/eval.c
--- current/eval.c	Tue Sep 19 01:28:34 2000
+++ devel/eval.c	Wed Sep 20 12:26:42 2000
@@ -5052,9 +5052,13 @@ rb_provided(feature)
   load_wait:
     if (loading_tbl) {
 	char *ext = strrchr(f, '.');
+	char *loading_thread;
 	if (strcmp(ext, ".rb") == 0) {
-	    while (st_lookup(loading_tbl, f, 0)) {
+	    while (st_lookup(loading_tbl, f, &loading_thread)) {
 		CHECK_INTS;
+		if ((VALUE)loading_thread == rb_thread_current()) {
+		    return Qfalse;
+		}
 		rb_thread_schedule();
 	    }
 	}
@@ -5186,7 +5190,7 @@ rb_f_require(obj, fname)
     if (!loading_tbl) {
 	loading_tbl = st_init_strtable();
     }
-    st_insert(loading_tbl, strdup(feature), 0);	/* partial state */
+    st_insert(loading_tbl, strdup(feature), rb_thread_current());	/* partial state */
 
     PUSH_TAG(PROT_NONE);
     if ((state = EXEC_TAG()) == 0) {


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦