From 324887d0d61ce2127dfd839930a88507c1641b75 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Mon, 23 Jan 2017 16:23:48 +0900
Subject: Backtrace list must be an array of strings; fix #3408

---
 src/error.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/error.c b/src/error.c
index 8e456ff1a..a71ee548f 100644
--- a/src/error.c
+++ b/src/error.c
@@ -208,6 +208,19 @@ exc_set_backtrace(mrb_state *mrb, mrb_value exc)
   mrb_value backtrace;
 
   mrb_get_args(mrb, "o", &backtrace);
+  if (!mrb_array_p(backtrace)) {
+  type_err:
+    mrb_raise(mrb, E_TYPE_ERROR, "backtrace must be Array of String");
+  }
+  else {
+    const mrb_value *p = RARRAY_PTR(backtrace);
+    const mrb_value *pend = p + RARRAY_LEN(backtrace);
+
+    while (p < pend) {
+      if (!mrb_string_p(*p)) goto type_err;
+      p++;
+    }
+  }
   mrb_iv_set(mrb, exc, mrb_intern_lit(mrb, "backtrace"), backtrace);
 
   return backtrace;
-- 
cgit v1.2.3