Re: [PATCH] 17882 smoke on CYGWIN_NT-4.0 NT 1.3.12

[alian]

ok what I see:
- ntsec work with NT/2K/XP
- ntsec don't work on 95/98
- 95/98 don't define var env OS

Right patch seems to be:


diff -ru perl-current-orig/ext/NDBM_File/ndbm.t 
perl-current/ext/NDBM_File/ndbm.t
--- perl-current-orig/ext/NDBM_File/ndbm.t      Thu Aug 22 13:56:04 2002
+++ perl-current/ext/NDBM_File/ndbm.t   Tue Sep 10 16:17:13 2002
@@ -40,7 +40,14 @@
  if (! -e $Dfile) {
         ($Dfile) = <Op.dbmx*>;
  }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 
'NetWare' || $^O eq 'MacOS') {
+
+if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 
'NetWare' || $^O eq 'MacOS'
+    # File permission work on Cygwin only on NT/win2k/XP
+    # and if $ENV{CYGWIN} contain ntsec
+    # 95/98 doesn't define $ENV{OS}
+    || ($^O eq 'cygwin' && !$ENV{OS})
+    || ($^O eq 'cygwin' && $ENV{CYGWIN}!~/ntsec/)
+   ) {
      print "ok 2 # Skipped: different file permission semantics\n";
  }
  else {
diff -ru perl-current-orig/ext/ODBM_File/odbm.t 
perl-current/ext/ODBM_File/odbm.t
--- perl-current-orig/ext/ODBM_File/odbm.t      Thu Aug 22 13:56:04 2002
+++ perl-current/ext/ODBM_File/odbm.t   Tue Sep 10 16:12:49 2002
@@ -40,7 +40,13 @@
  if (! -e $Dfile) {
         ($Dfile) = <Op.dbmx*>;
  }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 
'NetWare') {
+if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 
'NetWare' || $^0 eq 'MacOS'
+    # File permission work on Cygwin only on NT
+    # and if $ENV{CYGWIN} contain ntsec
+    # 95/98 doesn't define $ENV{OS}
+    || ($^O eq 'cygwin' && !$ENV{OS})
+    || ($^O eq 'cygwin' && $ENV{CYGWIN}!~/ntsec/)
+   ) {
      print "ok 2 # Skipped: different file permission semantics\n";
  }
  else {