summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--array.c22
-rw-r--r--test/ruby/test_array.rb9
3 files changed, 26 insertions, 10 deletions
diff --git a/ChangeLog b/ChangeLog
index e50d4648d4..d8dd7d58d0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Mar 23 07:30:31 2013 Marc-Andre Lafortune <ruby-core@marc-andre.ca>
+
+ * array.c: Avoid zip bug by not using obsolete rb_check_block_call
+ [Bug #8153]
+
Fri Mar 22 17:48:34 2013 Nobuyoshi Nakada <nobu@ruby-lang.org>
* lib/forwardable.rb (Forwardable::FILE_REGEXP): create regexp object
diff --git a/array.c b/array.c
index da94b3a100..daf66e5ea9 100644
--- a/array.c
+++ b/array.c
@@ -17,6 +17,7 @@
#include "ruby/encoding.h"
#include "internal.h"
#include "probes.h"
+#include "node.h"
#include "id.h"
#ifndef ARRAY_DEBUG
@@ -3032,11 +3033,11 @@ rb_ary_delete_if(VALUE ary)
}
static VALUE
-take_i(VALUE val, VALUE *args, int argc, VALUE *argv)
+take_i(VALUE i, VALUE args, int argc, VALUE *argv)
{
- if (args[1]-- == 0) rb_iter_break();
- if (argc > 1) val = rb_ary_new4(argc, argv);
- rb_ary_push(args[0], val);
+ NODE *memo = RNODE(args);
+ rb_ary_push(memo->u1.value, rb_enum_values_pack(argc, argv));
+ if (--memo->u3.cnt == 0) rb_iter_break();
return Qnil;
}
@@ -3044,18 +3045,19 @@ static VALUE
take_items(VALUE obj, long n)
{
VALUE result = rb_check_array_type(obj);
- VALUE args[2];
+ NODE *memo;
if (!NIL_P(result)) return rb_ary_subseq(result, 0, n);
+ if (!rb_respond_to(obj, idEach)) {
+ rb_raise(rb_eTypeError, "wrong argument type %s (must respond to :each)",
+ rb_obj_classname(obj));
+ }
result = rb_ary_new2(n);
- args[0] = result; args[1] = (VALUE)n;
- if (rb_check_block_call(obj, idEach, 0, 0, take_i, (VALUE)args) == Qundef)
- rb_raise(rb_eTypeError, "wrong argument type %s (must respond to :each)",
- rb_obj_classname(obj));
+ memo = NEW_MEMO(result, 0, n);
+ rb_block_call(obj, idEach, 0, 0, take_i, (VALUE)memo);
return result;
}
-
/*
* call-seq:
* ary.zip(arg, ...) -> new_ary
diff --git a/test/ruby/test_array.rb b/test/ruby/test_array.rb
index 17f2ef66c4..a8b514c830 100644
--- a/test/ruby/test_array.rb
+++ b/test/ruby/test_array.rb
@@ -1918,6 +1918,15 @@ class TestArray < Test::Unit::TestCase
assert_equal([['a', 5], ['b', 6]], %w(a b).zip(ary))
end
+ def test_zip_bug
+ bug8153 = "ruby-core:53650"
+ r = 1..1
+ def r.respond_to?(*)
+ super
+ end
+ assert_equal [[42, 1]], [42].zip(r), bug8153
+ end
+
def test_transpose
assert_equal([[1, :a], [2, :b], [3, :c]],
[[1, 2, 3], [:a, :b, :c]].transpose)