2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index a07295a4fe..739302bdce 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Apr  9 21:54:45 2008  Akinori MUSHA  <knu@iDaemons.org>
+
+	* array.c (rb_ary_pop): Do not reallocate too often; backported
+	  from 1.9.
+
 Wed Apr  9 21:13:05 2008  Akinori MUSHA  <knu@iDaemons.org>
 
 	* array.c (rb_ary_each, rb_ary_each_index, rb_ary_reverse_each,
diff --git a/array.c b/array.c
index f1748179c1..7d7775c8a2 100644
--- a/array.c
+++ b/array.c
@@ -450,7 +450,7 @@ rb_ary_pop(ary)
     rb_ary_modify_check(ary);
     if (RARRAY(ary)->len == 0) return Qnil;
     if (!FL_TEST(ary, ELTS_SHARED) &&
-	    RARRAY(ary)->len * 2 < RARRAY(ary)->aux.capa &&
+	    RARRAY(ary)->len * 3 < RARRAY(ary)->aux.capa &&
 	    RARRAY(ary)->aux.capa > ARY_DEFAULT_SIZE) {
 	RARRAY(ary)->aux.capa = RARRAY(ary)->len * 2;
 	REALLOC_N(RARRAY(ary)->ptr, VALUE, RARRAY(ary)->aux.capa);