From 34a31235c9eeaa9c1d1bcacd7470d2b37429a19f Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 1 Oct 2001 23:28:57 +0000
Subject: [PATCH] * marshal.c (r_object): TYPE_UCLASS check should be inversed.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1759 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 4 ++++
 marshal.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index e6e8342388..d1eb365e25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Oct  2 08:04:52 2001  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* marshal.c (r_object): TYPE_UCLASS check should be inversed.
+
 Wed Sep 26 19:02:39 2001  Guy Decoux  <ts@moulon.inra.fr>
 
 	* parse.y: allow 'primary[] = arg'
diff --git a/marshal.c b/marshal.c
index 8caad612c2..75062f480c 100644
--- a/marshal.c
+++ b/marshal.c
@@ -798,7 +798,7 @@ r_object(arg)
 	    VALUE c = rb_path2class(r_unique(arg));
 	    v = r_object(arg);
 	    if (rb_special_const_p(v) ||
-		!RTEST(rb_funcall(c, rb_intern("==="), 1, v))) {
+		!RTEST(rb_funcall(c, '<', 1, RBASIC(v)->klass))) {
 		rb_raise(rb_eArgError, "dump format error (user class)");
 	    }
 	    RBASIC(v)->klass = c;