[ruby-dev:15101] [bug?] pty causes segv by getting SIGINT

ptyモジュールを使っていて PTY.spawn {...} が生きているときに
C-cでわり込みをかけるとsegvすることがあるようです. 
で, こんな感じにすると現象自体はおさまります. どんなものでしょうか?

Index: ext/pty/pty.c
===================================================================
RCS file: /home/akira/cvs/ruby-src/cvs/ruby/ext/pty/pty.c,v
retrieving revision 1.5.2.2
diff -u -r1.5.2.2 pty.c
--- ext/pty/pty.c	7 May 2001 06:55:42 -0000	1.5.2.2
+++ ext/pty/pty.c	11 Nov 2001 11:57:28 -0000
@@ -426,7 +426,7 @@
 pty_getpty(self, shell)
     VALUE self, shell;
 {
-    VALUE res;
+    VALUE res, command;
     struct pty_info info;
     OpenFile *wfptr,*rfptr;
     NEWOBJ(rport, struct RFile);
@@ -442,15 +442,23 @@
     OBJSETUP(wport, rb_cFile, T_FILE);
     MakeOpenFile(wport, wfptr);
 
-    establishShell(RSTRING(shell)->ptr,&info);
+    if (TYPE(shell) == T_STRING)
+	command = shell;
+    else if (TYPE(shell) == T_ARRAY)
+	command = rb_ary_join(shell,rb_str_new2(" "));
+    else
+	rb_raise(rb_eTypeError, "String object or Array object are expected");
+    Check_SafeStr(command);
+
+    establishShell(RSTRING(command)->ptr,&info);
 
     rfptr->mode = rb_io_mode_flags("r");
     rfptr->f = fdopen(info.fd, "r");
-    rfptr->path = strdup(RSTRING(shell)->ptr);
+    rfptr->path = strdup(RSTRING(command)->ptr);
 
     wfptr->mode = rb_io_mode_flags("w");
     wfptr->f = fdopen(dup(info.fd), "w");
-    wfptr->path = strdup(RSTRING(shell)->ptr);
+    wfptr->path = strdup(RSTRING(command)->ptr);
 
     res = rb_ary_new2(2);
     rb_ary_store(res,0,(VALUE)rport);
@@ -458,8 +466,7 @@
     rb_ary_store(res,2,INT2FIX(info.child_pid));
 
     if (rb_block_given_p()) {
-	rb_yield((VALUE)res);
-	reset_signal_action();
+	rb_ensure(rb_yield, (VALUE)res, (VALUE (*)())reset_signal_action, Qnil);
 	return Qnil;
     }
     else {

あと前述の件とは別に, PTY.spawnの引数が文字列以外の場合に
やはりsegvしてしまうのとCheck_SafeStrする必要があるのではないかな
と思ったのでその処理も加えてあります. 

-- 
 やまだ あきら <URL:http://arika.org/>
 ([e-mail], [e-mail] or [e-mail])