Warn non-nil $, in IO#print too

ruby · Feb 23, 2020 · 588a86e · 588a86e
1 parent 0ed3384
commit 588a86e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/io.c b/io.c
@@ -7615,6 +7615,9 @@ rb_io_print(int argc, const VALUE *argv, VALUE out)
 	line = rb_lastline_get();
 	argv = &line;
     }
+    if (argc > 1 && !NIL_P(rb_output_fs)) {
+        rb_warn("$, is set to non-nil value");
+    }
     for (i=0; i<argc; i++) {
 	if (!NIL_P(rb_output_fs) && i>0) {
 	    rb_io_write(out, rb_output_fs);

diff --git a/test/ruby/test_io.rb b/test/ruby/test_io.rb
@@ -2572,7 +2572,7 @@ def test_print_separators
     $\ = "\n"
     pipe(proc do |w|
       w.print('a')
-      w.print('a','b','c')
+      EnvUtil.suppress_warning {w.print('a','b','c')}
       w.close
     end, proc do |r|
       assert_equal("a\n", r.gets)