diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
| commit | 2986a63f7e513cf37f46db9f211b77071260031f (patch) | |
| tree | 9a6e62602396938ea5a612420f53ebf267e8d941 /t/io/tell.t | |
| parent | 87b11a197a59fac210fc9265bde0ef1ffe36de89 (diff) | |
| download | perl-2986a63f7e513cf37f46db9f211b77071260031f.tar.gz | |
NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
p4raw-id: //depot/perl@10643
Diffstat (limited to 't/io/tell.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 c840c9232a..f2336dd631 100755 --- a/t/io/tell.t +++ b/t/io/tell.t @@ -6,7 +6,7 @@ print "1..23\n"; $TST = 'tst'; -$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or +$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or $^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin'); open($TST, 'harness') || (die "Can't open harness"); @@ -50,7 +50,7 @@ if ($. == 0) { print "not ok 14\n"; } else { print "ok 14\n"; } $curline = $.; open(other, 'harness') || (die "Can't open harness: $!"); -binmode other if $^O eq 'MSWin32'; +binmode other if (($^O eq 'MSWin32') || ($^O eq 'NetWare')); { local($.); |