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

4 files changed, 13 insertions, 4 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index 04f5dbc6d1..b92ef8eccd 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -10,7 +10,7 @@ BEGIN {
 use Config;
 
 $Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
-	      $^O eq 'os2' or $^O eq 'mint');
+	      $^O eq 'os2' or $^O eq 'mint' or $^O =~ /cygwin/);
 
 print "1..28\n";
 
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>;
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 4d33e2233a..a38b5f680e 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -12,6 +12,9 @@ use Fcntl;
 
 print "1..12\n";
 
+$Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' or $^O eq 'dos' or
+	      $^O eq 'os2' or $^O eq 'mint' or $^O =~ /cygwin/);
+
 unlink <Op_dbmx*>;
 
 umask(0);
@@ -22,7 +25,7 @@ $Dfile = "Op_dbmx.pag";
 if (! -e $Dfile) {
 	($Dfile) = <Op_dbmx*>;
 }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') {
+if ($Is_Dosish) {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/op/stat.t b/t/op/stat.t
index 6f2d00b7e6..ae627f6070 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -13,7 +13,7 @@ print "1..58\n";
 
 $Is_MSWin32 = $^O eq 'MSWin32';
 $Is_Dos = $^O eq 'dos';
-$Is_Dosish = $Is_Dos || $^O eq 'os2' || $Is_MSWin32;
+$Is_Dosish = $Is_Dos || $^O eq 'os2' || $Is_MSWin32 || $^O =~ /cygwin/;
 chop($cwd = ($Is_MSWin32 ? `cd` : `pwd`));
 
 $DEV = `ls -l /dev` unless $Is_Dosish;
@@ -93,6 +93,9 @@ foreach ((12,13,14,15,16,17)) {
     print "ok $_\n";		#deleted tests
 }
 
+# in ms windows, Op.stat.tmp inherits owner uid from directory
+# not sure about os/2, but chown is harmless anyway
+chown $>,'Op.stat.tmp';
 chmod 0700,'Op.stat.tmp';
 if (-r 'Op.stat.tmp') {print "ok 18\n";} else {print "not ok 18\n";}
 if (-w 'Op.stat.tmp') {print "ok 19\n";} else {print "not ok 19\n";}