From b9215a01f924262a22d178cae378367c6bdc75a3 Mon Sep 17 00:00:00 2001
From: Masamitsu MURASE <masamitsu.murase@gmail.com>
Date: Mon, 9 Jul 2012 01:10:05 +0900
Subject: Add ary_modify to prevent corrupting shared array.

---
 src/array.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/array.c b/src/array.c
index d65a99cc4..ec687bbf3 100644
--- a/src/array.c
+++ b/src/array.c
@@ -739,6 +739,7 @@ mrb_ary_delete_at(mrb_state *mrb, mrb_value self)
   if (index < 0) index += a->len;
   if (index < 0 || a->len <= (int)index) return mrb_nil_value();
 
+  ary_modify(mrb, a);
   val = a->ptr[index];
 
   ptr = a->ptr + index;
@@ -850,6 +851,7 @@ mrb_ary_clear(mrb_state *mrb, mrb_value self)
   struct RArray *a = mrb_ary_ptr(self);
 
   a->len = 0;
+  ary_modify(mrb, a);
   ary_shrink_capa(mrb, a);
 
   return self;
-- 
cgit v1.2.3