X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio.tell;h=98cf02717b26702c7c8ce187ad51e6578a420a8f;hb=8725079938ea1a29b3c5fc0c6bbda347bc3f7602;hp=130b4c47806d7c683539577d2db80d90350cd85d;hpb=8d063cd8450e59ea1c611a2f4f5a21059a2804f1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io.tell b/t/io.tell
index 130b4c4..98cf027 100644
--- a/t/io.tell
+++ b/t/io.tell
@@ -1,14 +1,16 @@
 #!./perl
 
-# $Header: io.tell,v 1.0 87/12/18 13:13:02 root Exp $
+# $Header: io.tell,v 3.0 89/10/18 15:26:45 lwall Locked $
 
 print "1..13\n";
 
-open(tst, '../Makefile') || (die "Can't open ../Makefile");
+$TST = 'tst';
+
+open($TST, '../Makefile') || (die "Can't open ../Makefile");
 
 if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; }
 
-$firstline = <tst>;
+$firstline = <$TST>;
 $secondpos = tell;
 
 $x = 0;
@@ -21,7 +23,7 @@ $lastpos = tell;
 
 unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; }
 
-if (seek(tst,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; }
+if (seek($TST,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; }
 
 if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; }
 
@@ -31,7 +33,7 @@ if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; }
 
 if (seek(tst,0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; }
 
-if (eof) { print "not ok 9\n"; } else { print "ok 9\n"; }
+if (eof($TST)) { print "not ok 9\n"; } else { print "ok 9\n"; }
 
 if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; }