Fix label on C<for(;;)> statement

[p5sagit/p5-mst-13.2.git] / t / io / tell.t

diff --git a/t/io/tell.t b/t/io/tell.t
old mode 100644 (file)
new mode 100755 (executable)
index cb1fc4c..83904e8
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -1,13 +1,13 @@
 #!./perl
 
-# $Header: tell.t,v 4.0 91/03/20 01:51:14 lwall Locked $
+# $RCSfile: tell.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:33 $
 
 print "1..13\n";
 
 $TST = 'tst';
 
-open($TST, '../Makefile') || (die "Can't open ../Makefile");
-
+open($TST, '../Configure') || (die "Can't open ../Configure");
+binmode $TST if $^O eq 'MSWin32';
 if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; }
 
 $firstline = <$TST>;