[ruby-dev:12875] rb_singleton_class_attached

特異クラスを持つ、凍結されたオブジェクトを
cloneすることができません。

(a = Object.new).freeze.instance_eval { }
b = a.clone
# => freeze.rb:3:in `clone': can't modify frozen object (TypeError)


--- class.c.orig	Fri Apr  6 14:42:39 2001
+++ class.c	Wed Apr 11 13:43:42 2001
@@ -112,8 +112,13 @@
 rb_singleton_class_attached(klass, obj)
     VALUE klass, obj;
 {
-    if (FL_TEST(klass, FL_SINGLETON))
+    if (FL_TEST(klass, FL_SINGLETON)) {
+	int frozen = OBJ_FROZEN(klass);
+
+	if (frozen) FL_UNSET(klass, FL_FREEZE);
 	rb_iv_set(klass, "__attached__", obj);
+	if (frozen) OBJ_FREEZE(klass);
+    }
 }
 
 VALUE
----
小迫＠ソフネック   渋谷区恵比寿1-15-1