copy tainted status

MacRuby · Jan 1, 2012 · ac1cf0f · ac1cf0f
1 parent 89b9f6e
commit ac1cf0f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/pack.c b/pack.c
@@ -1243,7 +1243,10 @@ hex2num(char c)
 static VALUE
 infected_str_new(const char *ptr, long len, VALUE str)
 {
-    return rb_str_new(ptr, len);
+    VALUE s = rb_str_new(ptr, len);
+
+    OBJ_INFECT(s, str);
+    return s;
 }
 
 /*