4 unless(grep /blib/, @INC) {
13 if(-d "lib" && -f "TEST") {
14 if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
21 END { unlink "./__taint__$$" }
25 $x = new IO::File "> ./__taint__$$" || die("Cannot open ./__taint__$$\n");
29 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
31 eval { kill 0 * $unsafe };
32 print "not " if $^O ne 'MSWin32' and ($@ !~ /^Insecure/o);
36 # We could have just done a seek on $x, but technically we haven't tested
38 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
41 print "ok 2\n"; # Calling the method worked
43 eval { kill 0 * $unsafe };
44 print "not " if ($@ =~ /^Insecure/o);
45 print "ok 3\n"; # No Insecure message from using the data