This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
VMS test and perldelta update
[perl5.git] / t / op / taint.t
index b045c49..07b9f48 100755 (executable)
@@ -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