deprecate TRUE,FALSE,NIL

* object.c (InitVM_Object): deprecate toplevel constants TRUE,
  FALSE, and NIL.  [Feature #12574]

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

4 files changed, 15 insertions, 6 deletions

diff --git a/ChangeLog b/ChangeLog
index 0c2b6ee8a5..acf74a0214 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sun Aug  7 18:08:27 2016  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* object.c (InitVM_Object): deprecate toplevel constants TRUE,
+	  FALSE, and NIL.  [Feature #12574]
+
 Sun Aug  7 06:48:21 2016  Eric Wong  <e@80x24.org>
 
 	* ext/openssl/ossl_ssl.c (ossl_ssl_write_internal):
diff --git a/basictest/test.rb b/basictest/test.rb
index 0ba4503faa..8472a0d14a 100644..100755
--- a/basictest/test.rb
+++ b/basictest/test.rb
@@ -1860,11 +1860,9 @@ $bad=false
 eval 'while false; $bad = true; print "foo\n" end'
 test_ok(!$bad)
 
-test_ok(eval('TRUE'))
+test_ok(eval('Object'))
 test_ok(eval('true'))
-test_ok(!eval('NIL'))
 test_ok(!eval('nil'))
-test_ok(!eval('FALSE'))
 test_ok(!eval('false'))
 
 $foo = 'test_ok(true)'
diff --git a/object.c b/object.c
index c58a46b293..d09c2444aa 100644
--- a/object.c
+++ b/object.c
@@ -3613,6 +3613,14 @@ InitVM_Object(void)
      * An alias of +false+
      */
     rb_define_global_const("FALSE", Qfalse);
+
+    {
+	VALUE names[3];
+	names[0] = ID2SYM(rb_intern_const("TRUE"));
+	names[1] = ID2SYM(rb_intern_const("FALSE"));
+	names[2] = ID2SYM(rb_intern_const("NIL"));
+	rb_mod_deprecate_constant(3, names, rb_cObject);
+    }
 }
 
 void
diff --git a/test/ruby/test_eval.rb b/test/ruby/test_eval.rb
index 9108c236d6..dba54773cb 100644
--- a/test/ruby/test_eval.rb
+++ b/test/ruby/test_eval.rb
@@ -271,11 +271,9 @@ class TestEval < Test::Unit::TestCase
     eval 'while false; bad = true; print "foo\n" end'
     assert(!bad)
 
-    assert(eval('TRUE'))
+    assert(eval('Object'))
     assert(eval('true'))
-    assert(!eval('NIL'))
     assert(!eval('nil'))
-    assert(!eval('FALSE'))
     assert(!eval('false'))
 
     $foo = 'assert(true)'