[ruby-list:29669] Re: frozen string in a |= b

Yukihiro Matsumotoさんの
<[e-mail]>から
> |#!/usr/local/bin/ruby
> |a = [ "A1\n", "A2\n", "A3\n", "A4\n" ]
> |b = [ "B1\n", "A2\n", "B2\n", "A4\n" ]
> |a |= b
> |c = a.dup
> |for s in c
> |  s.chomp!
> |end
> |-----------------------------
> |↑が何故↓になるのかを教えてください。
> 
> バグだからです。(_ _)

どうやってFixできるのか、私にはわからなかったのですが、
案外簡単な方法があったんですね。

パッチに一箇所だけ間違いがありました。(ary1 -> ary2)
それと、Array#uniqも変更する必要があるようです。

a = [ "A1\n", "A1\n", "A2\n", "A3\n", "A4\n" ]
a.uniq!
for s in a
  s.chomp!   # => can't modify frozen string (TypeError)
end


--- array.c.orig	Tue May 15 17:49:20 2001
+++ array.c	Tue May 15 18:28:44 2001
@@ -1496,7 +1496,7 @@
     for (i=0; i<RARRAY(ary2)->len; i++) {
 	v = RARRAY(ary2)->ptr[i];
 	if (st_delete(RHASH(hash)->tbl, &v, 0)) {
-	    rb_ary_push(ary3, RARRAY(ary1)->ptr[i]);
+	    rb_ary_push(ary3, RARRAY(ary2)->ptr[i]);
 	}
     }
 
@@ -1520,7 +1520,7 @@
     while (p < end) {
 	VALUE v = *p++;
 	if (st_delete(RHASH(hash)->tbl, &v, 0)) {
-	    *q++ = v;
+	    *q++ = *(p-1);
 	}
     }
     RARRAY(ary)->len = (q - RARRAY(ary)->ptr);
----
小迫＠ソフネック   渋谷区恵比寿1-15-1