From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 21 May 2003 19:28:23 +0000 (+0000)
Subject: More U/WIN tweaks from John P. Linderman.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cebd85e6fca2f450b0cc02ffa6ad2fdfdf763f59;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;