Use minimal @INC in tests, most of the time just '../lib',

[p5sagit/p5-mst-13.2.git] / t / lib / io_taint.t

diff --git a/t/lib/io_taint.t b/t/lib/io_taint.t
index 698db45..19afa2f 100755 (executable)
--- a/t/lib/io_taint.t
+++ b/t/lib/io_taint.t
@@ -3,7 +3,7 @@
 BEGIN {
     unless(grep /blib/, @INC) {
        chdir 't' if -d 't';
-       @INC = '../lib' if -d '../lib';
+       @INC = '../lib';
     }
 }
 
@@ -29,7 +29,7 @@ $x->close;
 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
 chop($unsafe = <$x>);
 eval { kill 0 * $unsafe };
-print "not " if ($@ !~ /^Insecure/o);
+print "not " if $^O ne 'MSWin32' and ($@ !~ /^Insecure/o);
 print "ok 1\n";
 $x->close;