From 67d92c48b5c6d9a1ca15ac431bead11fbfe2868b Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby.or.jp>
Date: Fri, 7 Aug 2020 22:59:27 +0900
Subject: Avoid breaking the `result` array by side-effect in C++.

---
 mrbgems/mruby-random/src/random.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'mrbgems/mruby-random/src')

diff --git a/mrbgems/mruby-random/src/random.c b/mrbgems/mruby-random/src/random.c
index c91df35f3..fdb28e012 100644
--- a/mrbgems/mruby-random/src/random.c
+++ b/mrbgems/mruby-random/src/random.c
@@ -357,7 +357,9 @@ mrb_ary_sample(mrb_state *mrb, mrb_value ary)
       mrb_ary_push(mrb, result, mrb_fixnum_value(r));
     }
     for (i=0; i<n; i++) {
-      mrb_ary_set(mrb, result, i, RARRAY_PTR(ary)[mrb_fixnum(RARRAY_PTR(result)[i])]);
+      mrb_int idx = mrb_fixnum(RARRAY_PTR(result)[i]);
+      mrb_value elem = RARRAY_PTR(ary)[idx];
+      mrb_ary_set(mrb, result, i, elem);
     }
     return result;
   }
-- 
cgit v1.2.3