Warn non-nil `$,` in `IO#print` too

1 files changed, 3 insertions, 0 deletions

diff --git a/io.c b/io.c
index 19fe51bcf6..b3175df6c0 100644
--- 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);