More U/WIN tweaks from John P. Linderman.

p4raw-id: //depot/perl@19585

diff --git a/t/io/layers.t b/t/io/layers.t
index 3060da5..193a517 100644 (file)
--- 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 deb49ce..fa5690d 100755 (executable)
--- 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;