diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-01-17 14:04:18 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-01-17 14:04:18 +0000 |
| commit | 2022f30b5b153bfc2b0167458d493cc5150f1b5d (patch) | |
| tree | 23dc7a59599bb5812a1b75393b941cf3d2400146 /t | |
| parent | 7e56aaa774b02dc64ace76ea7efe134ad4e18d03 (diff) | |
| download | perl-2022f30b5b153bfc2b0167458d493cc5150f1b5d.tar.gz | |
Correct typo (actually copy/paste of wrong thing).
p4raw-id: //depot/perlio@18506
Diffstat (limited to 't')
| -rwxr-xr-x | t/io/tell.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/io/tell.t b/t/io/tell.t index b3065d3002..ddc29ff5bc 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) { |