From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 17 Jan 2003 15:10:34 +0000 (+0000)
Subject: Re: 18457 on cygwin/20030113
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7bdbfeb78e66fc69fec82d24f7aedd5221926707;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) 
 {