X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fio_taint.t;h=19afa2fea4ebfe5afe5fa0d3158b835590ee8ac7;hb=20822f61cc01ab34be1e17db483aceb9d5ec8fb7;hp=698db45c72ddeeee1c9db1af45cde2064580b92c;hpb=49e60db318dafe6977e7332fc64c4fac32f5eb2c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/io_taint.t b/t/lib/io_taint.t
index 698db45..19afa2f 100755
--- 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;