From aaf1dc156eba0ae626534a3248a95e6a3656717f Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 18 Oct 2006 13:57:43 +0000
Subject: * array.c (rb_ary_shift): shorten copy size.  fixed:
 [ruby-list:42907]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@11187 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 array.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'array.c')

diff --git a/array.c b/array.c
index 2e9d927f6a..acc59d20b4 100644
--- a/array.c
+++ b/array.c
@@ -502,7 +502,7 @@ rb_ary_shift(ary)
     if (RARRAY(ary)->len == 0) return Qnil;
     top = RARRAY(ary)->ptr[0];
     if (RARRAY_LEN(ary) < ARY_DEFAULT_SIZE && !FL_TEST(ary, ELTS_SHARED)) {
-	MEMMOVE(RARRAY_PTR(ary), RARRAY_PTR(ary)+1, VALUE, RARRAY_LEN(ary));
+	MEMMOVE(RARRAY_PTR(ary), RARRAY_PTR(ary)+1, VALUE, RARRAY_LEN(ary)-1);
     }
     else {
 	if (!FL_TEST(ary, ELTS_SHARED)) {
-- 
cgit v1.2.3