1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/io_tell.t b/t/lib/io_tell.t
index f45d21e095..d8ebae24fd 100755
--- a/t/lib/io_tell.t
+++ b/t/lib/io_tell.t
@@ -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';
 if ($tst->eof) { print "not ok 1\n"; } else { print "ok 1\n"; }
 
 $firstline = <$tst>;