* hash.c (hash_equal): should call rb_eql when argument eql is set.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@13474 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 4 insertions, 1 deletions

diff --git a/hash.c b/hash.c
index d236fa8fa5..11d93af3b9 100644
--- a/hash.c
+++ b/hash.c
@@ -1398,7 +1398,10 @@ hash_equal(VALUE hash1, VALUE hash2, int eql)
 	if (!rb_respond_to(hash2, rb_intern("to_hash"))) {
 	    return Qfalse;
 	}
-	return rb_equal(hash2, hash1);
+	if (eql)
+	    return rb_eql(hash2, hash1);
+	else
+	    return rb_equal(hash2, hash1);
     }
     if (RHASH_SIZE(hash1) != RHASH_SIZE(hash2))
 	return Qfalse;