* class.c (rb_mod_clone): should not copy class name, since clone

  should remain anonymous.

* eval.c (rb_call0): self in a block given to define_method now be
  switched to the receiver of the method.

* eval.c (proc_invoke): added new parameter to allow self
  switching.


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

1 files changed, 3 insertions, 0 deletions

diff --git a/sample/test.rb b/sample/test.rb
index 6c352fa083..104ff2900d 100644
--- a/sample/test.rb
+++ b/sample/test.rb
@@ -1192,6 +1192,9 @@ $x = [1,2,3,[4,5,"foo"],{1=>"bar"},2.5,fact(30)]
 $y = Marshal.dump($x)
 test_ok($x == Marshal.load($y))
 
+StrClone=String.clone;
+test_ok(Marshal.load(Marshal.dump(StrClone.new("abc"))).type == StrClone)
+
 test_check "pack"
 
 $format = "c2x5CCxsdils_l_a6";