}
-ok( ${^TAINT}, '$^TAINT is on' );
+ok( ${^TAINT} == 1, '$^TAINT is on' );
eval { ${^TAINT} = 0 };
ok( ${^TAINT}, '$^TAINT is not assignable' );
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.
}