From 83740fa4bda976d6aef50a452a9dd433b5446af1 Mon Sep 17 00:00:00 2001 From: nobu Date: Thu, 2 Oct 2003 03:00:23 +0000 Subject: * variable.c (rb_const_defined_0): look up constants in Object as well. [ruby-dev:21458] * test/ruby/test_defined.rb (TestDefined::test_defined): test for constants. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4649 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- variable.c | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'variable.c') diff --git a/variable.c b/variable.c index 05f6281c3d..32616fc13f 100644 --- a/variable.c +++ b/variable.c @@ -1430,12 +1430,12 @@ rb_const_defined_0(klass, id, exclude, recurse) ID id; int exclude, recurse; { - VALUE tmp = klass, value; + VALUE value, tmp; + int mod_retry = 0; + tmp = klass; + retry: while (tmp) { - if (tmp == rb_cObject && klass != rb_cObject) { - break; - } if (RCLASS(tmp)->iv_tbl && st_lookup(RCLASS(tmp)->iv_tbl, id, &value)) { if (value == Qundef && NIL_P(autoload_file(klass, id))) return Qfalse; @@ -1444,8 +1444,10 @@ rb_const_defined_0(klass, id, exclude, recurse) if (!recurse && klass != rb_cObject) break; tmp = RCLASS(tmp)->super; } - if (!exclude && BUILTIN_TYPE(klass) == T_MODULE) { - return rb_const_defined(rb_cObject, id); + if (!exclude && !mod_retry && BUILTIN_TYPE(klass) == T_MODULE) { + mod_retry = 1; + tmp = rb_cObject; + goto retry; } return Qfalse; } -- cgit v1.2.3