Re: Regex-Unicode bugs

[p5sagit/p5-mst-13.2.git] / t / op / taint.t

diff --git a/t/op/taint.t b/t/op/taint.t
index b045c49..07b9f48 100755 (executable)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -927,6 +927,10 @@ else
     eval { system { "echo" } "/arg0", "arg1" };
     test 183, $@ =~ /^Insecure \$ENV/;
 }
+if ($Is_VMS) {
+    for (184..203) {print "not ok $_ # TODO tainted %ENV warning occludes tainted arguments warning\n";}
+}
+else 
 {
     # bug 20020208.005 plus some extras
     # single arg exec/system are tests 80-83