perl 2.0 (no announcement message available)

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

diff --git a/t/io.tell b/t/io.tell
index 130b4c4..e632aca 100644 (file)
--- 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 2.0 88/06/05 00:13:14 root Exp $
 
 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"; }