[ruby-dev:29675] Re: gsub で taint になる

なかだです。

At Thu, 19 Oct 2006 18:28:19 +0900,
とみたまさひろ<[e-mail]> wrote in [ruby-dev:29674]:
> [ruby-core:09219] は 1.8.5 にはそのままでは適用できなかったので、見よ
> う見まねで次のように変更してみましたが、結果はかわりませんでした。

いまいち気に入らないんですが、こうかな。


Index: string.c
===================================================================
RCS file: /pub/cvs/ruby/string.c,v
retrieving revision 1.182.2.53
diff -U 2 -p -u -r1.182.2.53 string.c
--- string.c	7 Oct 2006 15:55:00 -0000	1.182.2.53
+++ string.c	19 Oct 2006 11:14:04 -0000
@@ -147,5 +147,4 @@ str_new3(klass, str)
     RSTRING(str2)->aux.shared = str;
     FL_SET(str2, ELTS_SHARED);
-    OBJ_INFECT(str2, str);

     return str2;
@@ -156,5 +155,8 @@ rb_str_new3(str)
     VALUE str;
 {
-    return str_new3(rb_obj_class(str), str);
+    VALUE str2 = str_new3(rb_obj_class(str), str);
+
+    OBJ_INFECT(str2, str);
+    return str2;
 }

@@ -190,5 +192,5 @@ rb_str_new4(orig)
 	long ofs;
 	ofs = RSTRING(str)->len - RSTRING(orig)->len;
-	if (ofs > 0) {
+	if ((ofs > 0) || (!OBJ_TAINTED(str) && OBJ_TAINTED(orig))) {
 	    str = str_new3(klass, str);
 	    RSTRING(str)->ptr += ofs;
@@ -611,5 +613,6 @@ rb_str_substr(str, beg, len)
     else if (len > sizeof(struct RString)/2 &&
 	beg + len == RSTRING(str)->len && !FL_TEST(str, STR_ASSOC)) {
-	str2 = rb_str_new3(rb_str_new4(str));
+	str2 = rb_str_new4(str);
+	str2 = str_new3(rb_obj_class(str2), str2);
 	RSTRING(str2)->ptr += RSTRING(str2)->len - len;
 	RSTRING(str2)->len = len;


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦