[ruby-dev:12759] rb_mod_clone

クラスのcloneで、メソッドの可視性が共有しているのは、
変な気がします。
私の気付かない、深い理由のある仕様かもしれませんが。

class Foo
  def foo; end
end

Bar = Foo.clone

class Bar
  private :foo
end

Foo.new.foo
# => private method `foo' called for #<Foo:0x2aca8450> (NameError)


--- class.c.orig	Wed Mar 28 17:43:24 2001
+++ class.c	Wed Apr  4 13:15:05 2001
@@ -53,6 +53,14 @@
     return ST_CONTINUE;
 }
 
+st_table *
+rb_clone_method_table(st_table* orig)
+{
+  st_table* clone = st_init_numtable();
+  st_foreach(orig, clone_method, clone);
+  return clone;
+}
+
 VALUE
 rb_singleton_class_clone(klass)
     VALUE klass;
@@ -70,8 +78,7 @@
 	if (RCLASS(klass)->iv_tbl) {
 	    clone->iv_tbl = st_copy(RCLASS(klass)->iv_tbl);
 	}
-	clone->m_tbl = st_init_numtable();
-	st_foreach(RCLASS(klass)->m_tbl, clone_method, clone->m_tbl);
+	clone->m_tbl = rb_clone_method_table(RCLASS(klass)->m_tbl);
 	FL_SET(clone, FL_SINGLETON);
 	return (VALUE)clone;
     }

--- object.c.orig	Wed Mar 28 17:43:25 2001
+++ object.c	Wed Apr  4 13:21:47 2001
@@ -536,6 +536,8 @@
 rb_mod_clone(module)
     VALUE module;
 {
+    extern st_table * rb_clone_method_table(st_table* orig);
+
     NEWOBJ(clone, struct RClass);
     CLONESETUP(clone, module);
 
@@ -544,7 +546,7 @@
 	clone->iv_tbl = st_copy(RCLASS(module)->iv_tbl);
     }
     if (RCLASS(module)->m_tbl) {
-	clone->m_tbl = st_copy(RCLASS(module)->m_tbl);
+	clone->m_tbl = rb_clone_method_table(RCLASS(module)->m_tbl);
     }
 
     return (VALUE)clone;
----
小迫＠ソフネック   渋谷区恵比寿1-15-1