From 1bcee938d5f4a0a70d492c1c1c13ec29f24980ea Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 21 Dec 2015 09:40:58 +0000
Subject: * gc.c (internal_object_p): should not expose singleton classes  
 without a metaclass.   [Bug #11740]

* class.c (rb_singleton_class_has_metaclass_p): added.

* test/ruby/test_class.rb: add a test.




git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@53228 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 gc.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'gc.c')

diff --git a/gc.c b/gc.c
index 12be1eac11..a57addf1c4 100644
--- a/gc.c
+++ b/gc.c
@@ -2400,6 +2400,13 @@ internal_object_p(VALUE obj)
 	  case T_NODE:
 	  case T_ZOMBIE:
 	    break;
+	  case T_CLASS:
+	    {
+		if (FL_TEST(obj, FL_SINGLETON)) {
+		    int rb_singleton_class_has_metaclass_p(VALUE sklass);
+		    return rb_singleton_class_has_metaclass_p(obj) == 0;
+		}
+	    }
 	  default:
 	    if (!p->as.basic.klass) break;
 	    return 0;
-- 
cgit v1.2.3