* object.c (rb_class_real): follow included modules.

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

ChangeLog

@@ -1,3 +1,7 @@
+Tue Dec 11 03:17:19 2001  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* object.c (rb_class_real): follow included modules.
+
 Mon Dec 10 23:37:51 2001  Usaku Nakamura  <usa@ruby-lang.org>
 
 	* util.h: change prototype of ruby_qsort() to accord with its

object.c

@@ -75,6 +75,9 @@ VALUE
 rb_class_real(cl)
     VALUE cl;
 {
+    if (TYPE(cl) == T_ICLASS) {
+	cl = RBASIC(cl)->klass;
+    }
     while (FL_TEST(cl, FL_SINGLETON) || TYPE(cl) == T_ICLASS) {
 	cl = RCLASS(cl)->super;
     }