[inseparable changes from patch to perl 5.004_04]

[perl5.git] / doop.c

diff --git a/doop.c b/doop.c
index 763b1a9..571a9aa 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -440,6 +440,7 @@ SV *right;
            break;
        }
     }
+    SvTAINT(sv);
 }
 
 OP *