1 files changed, 2 insertions, 0 deletions
diff --git a/pp_hot.c b/pp_hot.c
index ab1e9fbc49..f1274a63e4 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1189,6 +1189,8 @@ PP(pp_qr)
     register PMOP *pm = cPMOP;
     SV *rv = sv_newmortal();
     SV *sv = newSVrv(rv, "Regexp");
+    if (pm->op_pmdynflags & PMdf_TAINTED)
+        SvTAINTED_on(rv);
     sv_magic(sv,(SV*)ReREFCNT_inc(PM_GETRE(pm)), PERL_MAGIC_qr,0,0);
     RETURNX(PUSHs(rv));
 }