Re: 18457 on cygwin/20030113

Message-Id: <20030117151034.2651.3@bactrian.elixent.com>

p4raw-id: //depot/perl@18508

diff --git a/t/io/tell.t b/t/io/tell.t
index 9aa39e8..deb49ce 100755 (executable)
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -103,7 +103,7 @@ END { unlink($written) }
 
 close($tst);
 open($tst,">$written")  || die "Cannot open $written:$!";
-binmode $TST if $Is_Dosish;
+binmode $tst if $Is_Dosish;
 
 if (tell($tst) == 0) { print "ok 24\n"; } else { print "not ok 24\n"; }
 
@@ -118,7 +118,7 @@ if (tell($tst) == 10) { print "ok 26\n"; } else { print "not ok 26\n"; }
 close($tst);
 
 open($tst,"+>>$written")  || die "Cannot open $written:$!";
-binmode $TST if $Is_Dosish;
+binmode $tst if $Is_Dosish;
 
 if (0) 
 {