X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fio_tell.t;h=65c63bdfc9cbb501be2bfe68b6823af9cb120266;hb=9ee2bb1a7c54b1866ff07ab9c157254810ee5205;hp=2009d610db00db691371a12d7f1d4d16a13be0f2;hpb=39e571d41067215a80f26089b260f1418caeb36b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/io_tell.t b/t/lib/io_tell.t
index 2009d61..65c63bd 100755
--- a/t/lib/io_tell.t
+++ b/t/lib/io_tell.t
@@ -3,7 +3,7 @@
 BEGIN {
     unless(grep /blib/, @INC) {
 	chdir 't' if -d 't';
-	@INC = '../lib' if -d '../lib';
+	@INC = '../lib';
 	$tell_file = "TEST";
     }
     else {
@@ -27,7 +27,7 @@ print "1..13\n";
 use IO::File;
 
 $tst = IO::File->new("$tell_file","r") || die("Can't open $tell_file");
-binmode $tst if ($^O eq 'MSWin32' or $^O eq 'dos');
+binmode $tst; # its a nop unless it matters. Was only if ($^O eq 'MSWin32' or $^O eq 'dos');
 if ($tst->eof) { print "not ok 1\n"; } else { print "ok 1\n"; }
 
 $firstline = <$tst>;