1 files changed, 3 insertions, 1 deletions
diff --git a/re.c b/re.c
index 540ae2848d..c038f2c1c6 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