[ruby-dev:10100] Re: [PATCH] module === string.extend(module).dup

なかだです。

On Wed, 21 Jun 2000 11:38:49 +0900
[e-mail] (Yukihiro Matsumoto) wrote:
> |  こういうのだと、frozen なオブジェクトじゃダメでした。
> |Kernel#included_modules とか extended_modules とかいうのがあれば、うま
> |く行きそうなんですが。
> 
> 要するにfrozenなオブジェクトに対しても(変更しさえしなければ)
> 特異クラスを定義(というか参照)できれば問題なしのようですね。
> なんとかしましょう。

  えーと、こんなんでしょうか。


--- class.c.orig	Wed May 24 13:33:53 2000
+++ class.c	Wed Jun 21 20:44:40 2000
@@ -534,4 +534,5 @@ rb_singleton_class(obj)
 	RBASIC(obj)->klass = klass;
 	rb_singleton_class_attached(klass, obj);
+	if (OBJ_FROZEN(obj)) OBJ_FREEZE(klass);
     }
     if (OBJ_TAINTED(obj)) {
--- eval.c.orig	Mon Jun 19 17:38:04 2000
+++ eval.c	Wed Jun 21 20:44:46 2000
@@ -1489,4 +1489,5 @@ rb_alias(klass, name, def)
 	rb_secure(4);
     }
+    if (OBJ_FROZEN(klass)) rb_error_frozen("class/module");
     orig = search_method(klass, def, &origin);
     if (!orig || !orig->nd_body) {
@@ -2826,5 +2827,4 @@ rb_eval(self, n)
 	    }
 
-	    if (OBJ_FROZEN(recv)) rb_error_frozen("object");
 	    klass = rb_singleton_class(recv);
 	    if (st_lookup(RCLASS(klass)->m_tbl, node->nd_mid, &body)) {
@@ -2984,5 +2984,4 @@ rb_eval(self, n)
 	    if (rb_safe_level() >= 4 && !OBJ_TAINTED(klass))
 		rb_raise(rb_eSecurityError, "Insecure: can't extend object");
-	    if (OBJ_FROZEN(klass)) rb_error_frozen("object");
 	    if (FL_TEST(CLASS_OF(klass), FL_SINGLETON)) {
 		rb_clear_cache();


-- 
そうだ 強気に ちょっと インチキに☆彡
    中田 "Bugるくらいがちょうどいいかも;-)" 伸悦