From e9d17f8a226bcfcf234def5d0ba77fb77a48a534 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 28 Jan 2002 10:18:14 +0000
Subject: [PATCH] * array.c (rb_ary_fill): shouldn't yield unless block given.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2025 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 4 ++++
 array.c   | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 5e2b6d259f..c3d7df3912 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Jan 28 19:16:58 2002  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* array.c (rb_ary_fill): shouldn't yield unless block given.
+
 Mon Jan 28 18:33:18 2002  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
 
 	* parse.y (yylex): strict check for numbers.
diff --git a/array.c b/array.c
index f2ff4702ed..f772325d06 100644
--- a/array.c
+++ b/array.c
@@ -1390,7 +1390,7 @@ rb_ary_fill(argc, argv, ary)
     VALUE item, arg1, arg2;
     long beg, end, len;
     VALUE *p, *pend;
-    int block_p;
+    int block_p = Qfalse;
 
     if (rb_block_given_p()) {
 	block_p = Qtrue;