[ruby-dev:28842] Re: SEGV by block.call

In article <[e-mail]>,
  Tanaka Akira <[e-mail]> writes:

> こうすると SEGV になるようです。
>
> % ./ruby -ve ' 
> def m(&b)
>   p b
>   b.call
> end
> m {|one| p one }
> '
> ruby 1.9.0 (2006-06-24) [i686-linux]
> #<Proc:0xb7df64b8@-e:6>
> zsh: segmentation fault (core dumped)  ./ruby -ve ' def m(&b)   p b   b.call end m {|one| p one } '

とりあえず、正しさは無視して落ちないということだけ求めれば、
こうでしょうか。

Index: eval.c
===================================================================
RCS file: /src/ruby/eval.c,v
retrieving revision 1.904
diff -u -r1.904 eval.c
--- eval.c	24 Jun 2006 14:52:59 -0000	1.904
+++ eval.c	25 Jun 2006 05:41:53 -0000
@@ -4740,7 +4740,10 @@
 	    }
 	    else {
 		if (pcall) {
-		    val = RARRAY(val)->ptr[0];
+                    if (RARRAY(val)->len == 0)
+                        val = Qnil;
+                    else
+                        val = RARRAY(val)->ptr[0];
 		}
 		assign(self, var, val, pcall);
 	    }

boron で落ちているのはこれともべつみたいなんでなんですが。
-- 
[田中 哲][たなか あきら][Tanaka Akira]