Handle PERLIO= and document a bit.

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

diff --git a/t/op/taint.t b/t/op/taint.t
index 7e8d4c4..846e1fd 100755 (executable)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -894,8 +894,8 @@ else {
     my @untainted;
     while (my ($k, $v) = each %ENV) {
        if (!tainted($v) &&
-           # These we have untainted explicitly earlier.
-           $k !~ /^(BASH_ENV|CDPATH|ENV|IFS|PATH|TEMP|TERM|TMP)$/) {
+           # These we have explicitly untainted or set earlier.
+           $k !~ /^(BASH_ENV|CDPATH|ENV|IFS|PATH|PERL_CORE|TEMP|TERM|TMP)$/) {
            push @untainted, "# '$k' = '$v'\n";
        }
     }
@@ -904,7 +904,7 @@ else {
 }
 
 
-ok( ${^TAINT},  '$^TAINT is on' );
+ok( ${^TAINT} == 1, '$^TAINT is on' );
 
 eval { ${^TAINT} = 0 };
 ok( ${^TAINT},  '$^TAINT is not assignable' );
@@ -966,8 +966,12 @@ else
 
     eval { system("lskdfj does not exist","with","args"); };
     test 204, $@ eq '';
-    eval { exec("lskdfj does not exist","with","args"); };
-    test 205, $@ eq '';
+    if ($Is_MacOS) {
+       print "ok 205 # no exec()\n";
+    } else {
+       eval { exec("lskdfj does not exist","with","args"); };
+       test 205, $@ eq '';
+    }
 
     # If you add tests here update also the above skip block for VMS.
 }