From a3f29338ad53c1027eeef0d3c7168d3355105d20 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 1 Dec 1999 09:24:48 +0000
Subject: 19991201

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@573 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 re.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 're.c')

diff --git a/re.c b/re.c
index 540ae2848d..9452e42116 100644
--- a/re.c
+++ b/re.c
@@ -275,7 +275,9 @@ static VALUE
 rb_reg_source(re)
     VALUE re;
 {
-    return rb_str_new(RREGEXP(re)->str,RREGEXP(re)->len);
+    VALUE str = rb_str_new(RREGEXP(re)->str,RREGEXP(re)->len);
+    if (OBJ_TAINTED(re)) OBJ_TAINT(str);
+    return str;
 }
 
 static VALUE
@@ -715,7 +717,8 @@ match_to_s(match)
 {
     VALUE str = rb_reg_last_match(match);
 
-    if (NIL_P(str)) return rb_str_new(0,0);
+    if (NIL_P(str)) str = rb_str_new(0,0);
+    if (OBJ_TAINTED(match)) OBJ_TAINT(str);
     return str;
 }
 
-- 
cgit v1.2.3