* class.c (rb_class_init_copy): singleton class is disallowed to copy,

  from its definition.  fixed: [ruby-talk:142749]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8469 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index b8aee74826..dd1f28af64 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,11 @@
-Mon May 16 22:21:44 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+Mon May 16 22:28:43 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* win32/win32.h, {bcc32,win32,wince}/Makefile.sub: moved rb_[ugp]id_t
 	  to get rid of redefinition warnings on mingw.
 
+	* class.c (rb_class_init_copy): singleton class is disallowed to copy,
+	  from its definition.  fixed: [ruby-talk:142749]
+
 Mon May 16 03:29:01 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 
 	* win32/win32.{h,c}: define rb_{p,g,u}id_t.
diff --git a/class.c b/class.c
index 59f608732f..b3cec55065 100644
--- a/class.c
+++ b/class.c
@@ -105,6 +105,9 @@ rb_class_init_copy(clone, orig)
     if (RCLASS(clone)->super != 0) {
 	rb_raise(rb_eTypeError, "already initialized class");
     }
+    if (FL_TEST(orig, FL_SINGLETON)) {
+	rb_raise(rb_eTypeError, "can't copy singleton class");
+    }
     return rb_mod_init_copy(clone, orig);
 }