Register a dupped identity hash as pinning

1 files changed, 4 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index c4e8512f64..b0de8e9433 100644
--- a/hash.c
+++ b/hash.c
@@ -1497,6 +1497,10 @@ rb_hash_new_capa(long capa)
 static VALUE
 hash_copy(VALUE ret, VALUE hash)
 {
+    if (rb_hash_compare_by_id_p(hash)) {
+        rb_gc_register_pinning_obj(ret);
+    }
+
     if (RHASH_AR_TABLE_P(hash)) {
         if (RHASH_AR_TABLE_P(ret)) {
             ar_copy(ret, hash);