From 0b92090f74fc7f04b8a626f9b82d04d671d5b33e Mon Sep 17 00:00:00 2001
From: knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 24 Feb 2009 15:02:01 +0000
Subject: * array.c (rb_ary_index, rb_ary_rindex): Emit a warning that a  
 given block is unused when an argument is specified.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@22599 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 array.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'array.c')

diff --git a/array.c b/array.c
index 696b6473b..79478649c 100644
--- a/array.c
+++ b/array.c
@@ -1128,6 +1128,8 @@ rb_ary_index(int argc, VALUE *argv, VALUE ary)
 	return Qnil;
     }
     rb_scan_args(argc, argv, "1", &val);
+    if (rb_block_given_p())
+	rb_warn("given block not used");
     for (i=0; i<RARRAY_LEN(ary); i++) {
 	if (rb_equal(RARRAY_PTR(ary)[i], val))
 	    return LONG2NUM(i);
@@ -1168,6 +1170,8 @@ rb_ary_rindex(int argc, VALUE *argv, VALUE ary)
 	return Qnil;
     }
     rb_scan_args(argc, argv, "1", &val);
+    if (rb_block_given_p())
+	rb_warn("given block not used");
     while (i--) {
 	if (rb_equal(RARRAY_PTR(ary)[i], val))
 	    return LONG2NUM(i);
-- 
cgit