Re: Change 33794: [PATCH] File::Copy & permission bits.

> Change 33794 by rgs@scipion on 2008/05/08 16:05:37
>
>         Subject: [PATCH] File::Copy & permission bits.
>         From: Abigail <abigail@abigail.be>
>         Date: Wed, 7 May 2008 23:16:54 +0200
>         Message-ID: <20080507211654.GA7823@abigail.be>
>
>  Affected files ...
>
>  ... //depot/perl/lib/File/Copy.pm#52 edit
>  ... //depot/perl/lib/File/Copy.t#11 edit

I got the following failures with this patch:

> ./perl.exe -Ilib lib/File/Copy.t
1..91
ok 1 - 'copy()' is a usage error
[ -- SNIP -- ]
ok 70 - nor change the destination's contents
ok 71 - Permission bits set correctly
ok 72 - Permission bits set correctly
ok 73 - Permission bits not modified
ok 74 - Permission bits set correctly
ok 75 - Permission bits set correctly
ok 76 - Permission bits not modified
ok 77 - Permission bits set correctly
ok 78 - Permission bits set correctly
ok 79 - Permission bits not modified
ok 80 - Permission bits set correctly
ok 81 - Permission bits set correctly
not ok 82 - Permission bits not modified
#   Failed test 'Permission bits not modified'
#   at lib/File/Copy.t line 277.
#          got: 'r--r--r--'
#     expected: 'rw-rw-rw-'
ok 83 - Permission bits set correctly
ok 84 - Permission bits set correctly
ok 85 - Permission bits not modified
ok 86 - Permission bits set correctly
ok 87 - Permission bits set correctly
ok 88 - Permission bits not modified
ok 89 - Permission bits set correctly
ok 90 - Permission bits set correctly
not ok 91 - Permission bits not modified
#   Failed test 'Permission bits not modified'
#   at lib/File/Copy.t line 277.
#          got: '-----xr-x'
#     expected: '-w---xr-x'
# Looks like you failed 2 tests of 91.


> ./perl -Ilib -V
Summary of my perl5 (revision 5 version 11 subversion 0 patch 33796)
configuration:
  Platform:
    osname=cygwin, osvers=1.5.25(0.15642), archname=cygwin-thread-multi-64int
    uname='cygwin_nt-5.1 pn100-02-2-356p 1.5.25(0.15642) 2008-04-17
12:11 i686 cygwin '
    config_args='-de -Dusedevel -Dversiononly=no -Dinstallusrbinperl
-Uusemallocwrap -Dinc_version_list=none -Dnoextensions=attrs IPC/SysV
Sys/Syslog Devel/DProf Devel/Peek re Text/Soundex Math/BigInt/FastCalc
Time/Piece -A append:ccflags= -DNO_MATHOMS  -A define:optimize=-Os
-pipe -funit-at-a-time -march=pentium4 -mfpmath=sse -mieee-fp -mmmx
-msse -msse2'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=undef, uselongdouble=undef
    usemymalloc=y, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__
-DNO_MATHOMS -fno-strict-aliasing -pipe',
    optimize='-Os -pipe -funit-at-a-time -march=pentium4 -mfpmath=sse
-mieee-fp -mmmx -msse -msse2',
    cppflags='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -DNO_MATHOMS
-fno-strict-aliasing -pipe'
    ccversion='', gccversion='3.4.4 (cygming special, gdc 0.12, using
dmd 0.125)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long long', ivsize=8, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='g++', ldflags =' -Wl,--enable-auto-import
-Wl,--export-all-symbols -Wl,--stack,8388608
-Wl,--enable-auto-image-base -s -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib /lib
    libs=-ldl -lcrypt
    perllibs=-ldl -lcrypt
    libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
    cccdlflags=' ', lddlflags=' --shared  -Wl,--enable-auto-import
-Wl,--export-all-symbols -Wl,--stack,8388608
-Wl,--enable-auto-image-base -s -L/usr/local/lib'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY MYMALLOC NO_MATHOMS
                        PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT
                        PERL_USE_SAFE_PUTENV USE_64_BIT_INT USE_ITHREADS
                        USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
  Locally applied patches:
        DEVEL
  Built under cygwin
  Compiled at May  8 2008 13:48:10
  %ENV:
    PERLIO="perlio"
    CYGWIN="ntsec"
  @INC:
    lib
    /usr/lib/perl5/5.11.0/cygwin
    /usr/lib/perl5/5.11.0
    /usr/lib/perl5/site_perl/5.11.0/cygwin
    /usr/lib/perl5/site_perl/5.11.0

• Re: Change 33794: [PATCH] File::Copy & permission bits. by Jerry D. Hedden
• Re: Change 33794: [PATCH] File::Copy & permission bits. by Abigail
• Re: Change 33794: [PATCH] File::Copy & permission bits. by Rafael Garcia-Suarez
• [PATCH] Re: Change 33794: [PATCH] File::Copy & permission bits. by Jerry D. Hedden
• Re: [PATCH] Re: Change 33794: [PATCH] File::Copy & permission bits. by Rafael Garcia-Suarez