From 26b86d8a721551216a8f22dd36569e2ef94759a6 Mon Sep 17 00:00:00 2001
From: akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 26 Jan 2008 10:31:11 +0000
Subject: [PATCH] * marshal.c (w_object): dump string encoding in USERDEF.  
 [ruby-dev:33401]

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

diff --git a/ChangeLog b/ChangeLog
index 5500c048bf..297dfba15b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Jan 26 19:08:45 2008  Tanaka Akira  <akr@fsij.org>
+
+	* marshal.c (w_object): dump string encoding in USERDEF.
+	  [ruby-dev:33401]
+
 Sat Jan 26 17:42:23 2008  Koichi Sasada  <ko1@atdot.net>
 
 	* compile.c (iseq_compile_each): validate argument expr of "next"
diff --git a/marshal.c b/marshal.c
index fe7d11cc3e..77205a45a6 100644
--- a/marshal.c
+++ b/marshal.c
@@ -613,7 +613,7 @@ w_object(VALUE obj, struct dump_arg *arg, int limit)
 	    w_class(TYPE_USERDEF, obj, arg, Qfalse);
 	    w_bytes(RSTRING_PTR(v), RSTRING_LEN(v), arg);
             if (hasiv2) {
-		w_ivar(obj, ivtbl2, &c_arg);
+		w_ivar(v, ivtbl2, &c_arg);
             }
             else if (hasiv) {
 		w_ivar(obj, ivtbl, &c_arg);
diff --git a/test/ruby/test_marshal.rb b/test/ruby/test_marshal.rb
index e2151e71c5..a7f28c0f8b 100644
--- a/test/ruby/test_marshal.rb
+++ b/test/ruby/test_marshal.rb
@@ -57,6 +57,7 @@ class TestMarshal < Test::Unit::TestCase
     def initialize(str)
       @str = str
     end
+    attr_reader :str
     def _dump(limit)
       @str
     end
@@ -73,4 +74,14 @@ class TestMarshal < Test::Unit::TestCase
     }
     assert_equal("marshal data too short", e.message)
   end
+
+
+  def test_userdef_encoding
+    s1 = "\xa4\xa4".force_encoding("euc-jp")
+    o1 = C.new(s1)
+    m = Marshal.dump(o1)
+    o2 = Marshal.load(m)
+    s2 = o2.str
+    assert_equal(s1, s2)
+  end
 end