* variable.c (rb_path2class): don't raise NameError when the middle

constant of the path is not defined but defined on toplevel.
  [ruby-core:41410] [Bug #5691]

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

ChangeLog

@@ -1,3 +1,9 @@
+Wed Nov 30 23:35:45 2011  NARUSE, Yui  <naruse@ruby-lang.org>
+
+	* variable.c (rb_path2class): don't raise NameError when the middle
+	  constant of the path is not defined but defined on toplevel.
+	  [ruby-core:41410] [Bug #5691]
+
 Wed Nov 30 20:02:02 2011  Martin Duerst  <duerst@it.aoyama.ac.jp>
 
 	* transcode.c: Simplified rb_econv_binmode, avoided a warning on cygwin.

ext/-test-/path_to_class/extconf.rb

@@ -0,0 +1,6 @@
+$srcs = Dir[File.join($srcdir, "*.{#{SRC_EXT.join(%q{,})}}")]
+inits = $srcs.map {|s| File.basename(s, ".*")}
+inits.delete("init")
+inits.map! {|s|"X(#{s})"}
+$defs << "-DTEST_INIT_FUNCS(X)=\"#{inits.join(' ')}\""
+create_makefile("-test-/path_to_class/path_to_class")

ext/-test-/path_to_class/path_to_class.c

@@ -0,0 +1,9 @@
+#include "ruby.h"
+
+void
+Init_path_to_class(void)
+{
+    VALUE klass = rb_path2class("Test_PathToClass");
+
+    rb_define_singleton_method(klass, "path_to_class", rb_path_to_class, 1);
+}

test/-ext-/path_to_class/test_path_to_class.rb

@@ -0,0 +1,12 @@
+require 'test/unit'
+
+class Test_PathToClass < Test::Unit::TestCase
+  require '-test-/path_to_class/path_to_class'
+
+  def test_path_to_class
+    bug5691 = '[ruby-core:41410]'
+    assert_raise(ArgumentError, bug5691) {
+      Test_PathToClass.path_to_class("Test_PathToClass::Object")
+    }
+  end
+end

variable.c

@@ -272,7 +272,7 @@ rb_path_to_class(VALUE pathname)
 	    p += 2;
 	    pbeg = p;
 	}
-	if (!rb_const_defined(c, id)) {
+	if (!rb_const_defined_at(c, id)) {
 	  undefined_class:
 	    rb_raise(rb_eArgError, "undefined class/module %.*s", (int)(p-path), path);
 	}