diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-21 19:28:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-21 19:28:23 +0000 |
| commit | cebd85e6fca2f450b0cc02ffa6ad2fdfdf763f59 (patch) | |
| tree | 73d5ce3a55baa1e5c16d81dc75cf0b039c66becc /t/io | |
| parent | 692ef166768038d07562d41a21f34b424912aa08 (diff) | |
| download | perl-cebd85e6fca2f450b0cc02ffa6ad2fdfdf763f59.tar.gz | |
More U/WIN tweaks from John P. Linderman.
p4raw-id: //depot/perl@19585
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/layers.t | 1 | ||||
| -rwxr-xr-x | t/io/tell.t | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/t/io/layers.t b/t/io/layers.t index 3060da5750..193a517512 100644 --- a/t/io/layers.t +++ b/t/io/layers.t @@ -30,6 +30,7 @@ plan tests => 43; use Config; my $DOSISH = $^O =~ /^(?:MSWin32|cygwin|os2|dos|NetWare|mint)$/ ? 1 : 0; + $DOSISH = 1 if !$DOSISH and $^O =~ /^uwin/; my $NONSTDIO = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio' ? 1 : 0; my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio} ? 1 : 0; diff --git a/t/io/tell.t b/t/io/tell.t index deb49ce03d..fa5690d4b3 100755 --- a/t/io/tell.t +++ b/t/io/tell.t @@ -12,7 +12,8 @@ print "1..27\n"; $TST = 'tst'; $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'); + $^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin' or + $^O =~ /^uwin/); open($TST, 'harness') || (die "Can't open harness"); binmode $TST if $Is_Dosish; |