summaryrefslogtreecommitdiff
path: root/object.c
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-06-16 07:04:48 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-06-16 07:04:48 +0000
commit3e0723af69a5c6ea00c7d97a7965199903dddd77 (patch)
tree8918a7eb81fba2a25f009837d5f765b3cdae6397 /object.c
parent35ec0ad3f34424267a9193a472f093a648b451a3 (diff)
* object.c (rb_mod_le): singleton class inherits Class rather than its
object's class. [ruby-dev:23690] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6463 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'object.c')
-rw-r--r--object.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/object.c b/object.c
index b44534f..dd6b1f3 100644
--- a/object.c
+++ b/object.c
@@ -1283,6 +1283,11 @@ rb_mod_le(mod, arg)
rb_raise(rb_eTypeError, "compared with non class/module");
}
+ if (FL_TEST(mod, FL_SINGLETON)) {
+ if (RCLASS(mod)->m_tbl == RCLASS(arg)->m_tbl)
+ return Qtrue;
+ mod = RBASIC(mod)->klass;
+ }
while (mod) {
if (RCLASS(mod)->m_tbl == RCLASS(arg)->m_tbl)
return Qtrue;