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

On Tue 10 Sep 2002 15:06, alian <[email protected]> wrote:
>  > Failures:
>  > cygwin       stdio/perlio     -Uuseperlio
>  >     ext/NDBM_File/ndbm...................FAILED at test 2
>  >     ext/ODBM_File/odbm...................FAILED at test 2
>  > .../ext/NDBM_File/ndbm....FAILED test 2
>  > .../ext/ODBM_File/odbm....FAILED test 2
> 
> Why ?

What's your $CYGWIN ?

my computer->advanced->environment->CYGWIN

should have 'ntsec binary tty' (or at least 'ntsec')
does it?

> $ touch t
> $ chmod 640 t
> $ ls -l t
> -rw-r--r--    1 Administ Aucun           0 Sep 10 14:00 t
> $ export CYGWIN="ntsec $CYGWIN"
> $ chmod 640 t
> $ ls -l t
> -rw-r-----    1 Administ Aucun           0 Sep 10 14:00 t
> $ uname -a
> CYGWIN_NT-4.0 NT 1.3.12(0.54/3/2) 2002-07-06 02:16 i686 unknown
> 
> Perms on files work on Cygwin only on NT and only if ntsec is defined in 
> var env CYGWIN. Perms doesn't work on win9x on cygwin.
> 
> PATCH:
> 
> 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 14:51:28 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
> +    # and if $ENV{CYGWIN} contain ntsec
> +    || ($^O eq 'cygwin' && $ENV{OS} ne "Windows_NT")
> +    || ($^O eq 'cygwin' && $ENV{OS} eq "Windows_NT"
> +       && $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 14:58:06 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
> +    || ($^O eq 'cygwin' && $ENV{OS} ne "Windows_NT")
> +    || ($^O eq 'cygwin' && $ENV{OS} eq "Windows_NT"
> +       && $ENV{CYGWIN}!~/ntsec/)
> +   ) {
>       print "ok 2 # Skipped: different file permission semantics\n";
>   }
>   else {

-- 
H.Merijn Brand        Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0 & 633 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
  WinNT 4, Win2K pro & WinCE 2.11.  Smoking perl CORE: [email protected]
http://archives.develooper.com/[email protected]/   [email protected]
send smoke reports to: [email protected], QA: http://qa.perl.org