freeze the hash key (fixes #2945)

44eb1492 · Kazuho Oku · 1cbbb7e1 · 44eb1492
Commit 44eb1492 authored Sep 10, 2015 by Kazuho Oku
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

src/hash.c src/hash.c +5 -3

No files found.
--- a/src/hash.c
+++ b/src/hash.c
@@ -104,9 +104,11 @@ static void mrb_hash_modify(mrb_state *mrb, mrb_value hash);
 static inline mrb_value
 mrb_hash_ht_key(mrb_state *mrb, mrb_value key)
 {
-  if (mrb_string_p(key))
-    return mrb_str_dup(mrb, key);
-  else
+  if (mrb_string_p(key)) {
+    key = mrb_str_dup(mrb, key);
+    RSTR_SET_FROZEN_FLAG(mrb_str_ptr(key));
+    return key;
+  } else
    return key;
 }