return 1;
}
-print "1..41\n";
+print "1..43\n";
$Is_MSWin32 = $^O eq 'MSWin32';
$Is_NetWare = $^O eq 'NetWare';
close FOO; # just mention it, squelch used-only-once
if ($Is_MSWin32 || $Is_NetWare || $Is_Dos || $Is_MPE || $Is_MacOS) {
- skip() for 1..2;
+ skip('SIGINT not safe on this platform') for 1..2;
}
else {
# the next tests are embedded inside system simply because sh spits out
ok $^T > 850000000, $^T;
if ($Is_VMS || $Is_Dos || $Is_MacOS) {
- skip() for 1..2;
+ skip("cannot test on $^O") for 1..2;
}
else {
$PATH = $ENV{PATH};
ok $^S == 0;
eval { ok $^S == 1 };
ok $^S == 0;
+
+ok ${^TAINT} == 0;
+eval { ${^TAINT} = 1 };
+ok ${^TAINT} == 0;