* pack.c (pack_pack): propagate taint status from format string to

  result string.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@20525 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 1 insertions, 0 deletions

diff --git a/pack.c b/pack.c
index bd6546cd76..9d23062119 100644
--- a/pack.c
+++ b/pack.c
@@ -1000,6 +1000,7 @@ pack_pack(ary, fmt)
     if (associates) {
 	rb_str_associate(res, associates);
     }
+    OBJ_INFECT(res, fmt);
     return res;
 }