diff options
| author | Alexander Smishlajev <als@turnhere.com> | 1999-04-25 17:58:29 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 04:39:15 +0000 |
| commit | 8736538c3cff6585c95a01b990d3b3a9e5d5744d (patch) | |
| tree | a62ec1da701a15abcbfdff76f248259b80548f1a /t/io/tell.t | |
| parent | 3eeba6fb8b434fcb27f601771baa0ea98f44d487 (diff) | |
| download | perl-8736538c3cff6585c95a01b990d3b3a9e5d5744d.tar.gz | |
cygwin32 update (untested adaptation of patch against 5.005_03)
Message-ID: <37230365.5F68B460@turnhere.com>
Subject: [PATCH]5.005_03 (CORE) cygwin32 port
p4raw-id: //depot/perl@3358
Diffstat (limited to 't/io/tell.t')
| -rwxr-xr-x | t/io/tell.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/io/tell.t b/t/io/tell.t index afcfcb5800..8df0228c31 100755 --- a/t/io/tell.t +++ b/t/io/tell.t @@ -6,8 +6,11 @@ print "1..21\n"; $TST = 'tst'; +$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or + $^O eq 'os2' or $^O eq 'mint' or $^O =~ /cygwin/); + open($TST, '../Configure') || (die "Can't open ../Configure"); -binmode $TST if $^O eq 'MSWin32'; +binmode $TST if $Is_Dosish; if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; } $firstline = <$TST>; |