2000-06-22

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@775 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 6 insertions, 1 deletions

diff --git a/hash.c b/hash.c
index e66ab126e..a8251dac7 100644
--- a/hash.c
+++ b/hash.c
@@ -268,8 +268,13 @@ static VALUE
 rb_hash_dup(hash)
     VALUE hash;
 {
+    VALUE klass = CLASS_OF(hash);
+
     NEWOBJ(dup, struct RHash);
-    OBJSETUP(dup, CLASS_OF(hash), T_HASH);
+    while (TYPE(klass) == T_ICLASS || FL_TEST(klass, FL_SINGLETON)) {
+	klass = (VALUE)RCLASS(klass)->super;
+    }
+    OBJSETUP(dup, klass, T_HASH);
 
     dup->iter_lev = 0;
     dup->ifnone = RHASH(hash)->ifnone;