shared strings should not chain

1 files changed, 3 insertions, 0 deletions

diff --git a/src/string.c b/src/string.c
index dc6dcfafe..3230121a7 100644
--- a/src/string.c
+++ b/src/string.c
@@ -1211,6 +1211,9 @@ str_subseq(mrb_state *mrb, mrb_value str, long beg, long len)
 
   str2 = mrb_str_new_with_class(mrb, str, 0, 0);
   orig = mrb_str_ptr(str);
+  while (orig->flags & MRB_STR_SHARED) {
+    orig = orig->aux.shared;
+  }
   s = mrb_str_ptr(str2);
   s->buf = orig->buf + beg;
   s->len = len;