From 967001d9da6a2f26736e092dba924748fa80d099 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 3 Jun 2009 00:02:14 +0000
Subject: [PATCH] * enum.c (first_i): Enumerator#first should consume only what
 is   needed.   a patch from Marc-Andre Lafortune.  [ruby-core:23661]

* enum.c (enum_first): call to_int once for an argument.  based on
  a patch from Marc-Andre Lafortune.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@23622 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog |  8 ++++++++
 enum.c    | 16 ++++++++++------
 2 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4059c40190..a09f8c8187 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+Tue Jun  2 17:32:40 2009  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* enum.c (first_i): Enumerator#first should consume only what is
+	  needed.   a patch from Marc-Andre Lafortune.  [ruby-core:23661]
+
+	* enum.c (enum_first): call to_int once for an argument.  based on
+	  a patch from Marc-Andre Lafortune.
+
 Tue Jun  2 13:27:21 2009  Kazuhiro NISHIYAMA  <zn@mbf.nifty.com>
 
 	* test/ripper/test_filter.rb: add tests. see [ruby-dev:37856]
diff --git a/enum.c b/enum.c
index 1235d3eb78..978f850400 100644
--- a/enum.c
+++ b/enum.c
@@ -617,14 +617,14 @@ first_i(VALUE i, VALUE *ary, int argc, VALUE *argv)
 	rb_iter_break();
     }
     else {
-	long n = NUM2LONG(ary[0]);
+	long n = ary[0];
 
+	rb_ary_push(ary[1], i);
+	n--;
 	if (n <= 0) {
 	    rb_iter_break();
 	}
-	rb_ary_push(ary[1], i);
-	n--;
-	ary[0] = INT2NUM(n);
+	ary[0] = n;
     }
     return Qnil;
 }
@@ -649,9 +649,13 @@ enum_first(int argc, VALUE *argv, VALUE obj)
 	ary[0] = ary[1] = Qnil;
     }
     else {
+	long len;
+
 	rb_scan_args(argc, argv, "01", &n);
-	ary[0] = n;
-	ary[1] = rb_ary_new2(NUM2LONG(n));
+	len = NUM2LONG(n);
+	if (len == 0) return rb_ary_new2(0);
+	ary[0] = len;
+	ary[1] = rb_ary_new2(len);
     }
     rb_block_call(obj, id_each, 0, 0, first_i, (VALUE)ary);