[rt.cpan.org #74332] [perl #108956] [PATCH] 84403b0 skip testing cygwin utf8 readdir() with Win32 ANSI API

Tue Jan 24 16:00:54 2012: Request 74332 was acted upon.
Transaction: Ticket created by [email protected]
       Queue: Win32
     Subject: [perl #108956] [PATCH] 84403b0 skip testing cygwin utf8 readdir() with Win32 ANSI API 
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: [email protected]
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=74332 >


Forwarding....

On Tue Jan 24 09:37:52 2012, [email protected] wrote:
> 
> This is a bug report for perl from [email protected],
> generated with the help of perlbug 1.39 running under perl 5.15.7.
> 
> From 84403b0585cf5ba6f92accfde75dca707f779389 Mon Sep 17 00:00:00 2001
> From: Reini Urban <[email protected]>
> Date: Tue, 21 Jun 2011 07:38:13 -0500
> Subject: [PATCH 4/5] skip testing cygwin utf8 readdir() with Win32
>    ANSI API
> MIME-Version: 1.0
> Content-Type: multipart/mixed; boundary="------------1.7.5.4"
> 
> This is a multi-part message in MIME format.
> --------------1.7.5.4
> Content-Type: text/plain; charset=UTF-8; format=fixed
> Content-Transfer-Encoding: 8bit
> 
> ---
>  cpan/Win32/t/Unicode.t |    4 +++-
>  1 files changed, 3 insertions(+), 1 deletions(-)
> 
> 
> --------------1.7.5.4
> Content-Type: text/x-patch; name="0004-skip-testing-cygwin-utf8-
>    readdir-with-Win32-ANSI-API.patch"
> Content-Transfer-Encoding: 8bit
> Content-Disposition: attachment; filename="0004-skip-testing-cygwin-
>    utf8-readdir-with-Win32-ANSI-API.patch"
> 
> diff --git a/cpan/Win32/t/Unicode.t b/cpan/Win32/t/Unicode.t
> index 3570142..6d66e7a 100644
> --- a/cpan/Win32/t/Unicode.t
> +++ b/cpan/Win32/t/Unicode.t
> @@ -45,10 +45,12 @@ Win32::CreateFile($file);
>  ok(-f Win32::GetANSIPathName($file));
> 
>  # readdir() returns ANSI form of Unicode filename
> +# but on cygwin-1.7 the utf-8 form.
>  ok(opendir(my $dh, Win32::GetANSIPathName($dir)));
>  while ($_ = readdir($dh)) {
>      next if /^\./;
> -    ok($file, Win32::GetLongPathName("$dir\\$_"));
> +    skip($^O eq 'cygwin' and $Config{osvers} ge "1.7" ? "do not test
>    cygwin utf8 readdir()" : 0,
> +         $file, Win32::GetLongPathName("$dir\\$_"));
>  }
>  closedir($dh);
> 
> 
> --------------1.7.5.4--
> 
> 
> ---
> Flags:
>     category=library
>     severity=medium
>     module=Win32
> ---
> Site configuration information for perl 5.15.7:
> 
> Configured by rurban at Sun Jan 22 12:13:34 CST 2012.
> 
> Summary of my perl5 (revision 5 version 15 subversion 7)
>    configuration:
> 
>   Platform:
>     osname=linux, osvers=3.0.0-1-amd64, archname=x86_64-linux
>     uname='linux reini 3.0.0-1-amd64 #1 smp sun jul 24 02:24:44 utc
>    2011 x86_64 gnulinux '
>     config_args='-de -Dusedevel -Dinstallman1dir=none
>    -Dinstallman3dir=none -Dinstallsiteman1dir=none
>    -Dinstallsiteman3dir=none -Uuseithreads -Accflags='-msse4.2'
>    -Accflags='-march=corei7' -Dcf_email='[email protected]'
>    -Dperladmin='[email protected]' -Duseshrplib'
>     hint=recommended, useposix=true, d_sigaction=define
>     useithreads=undef, usemultiplicity=undef
>     useperlio=define, d_sfio=undef, uselargefiles=define,
>    usesocks=undef
>     use64bitint=define, use64bitall=define, uselongdouble=undef
>     usemymalloc=n, bincompat5005=undef
>   Compiler:
>     cc='cc', ccflags ='-msse4.2 -march=corei7 -fno-strict-aliasing
>    -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE
>    -D_FILE_OFFSET_BITS=64',
>     optimize='-O2',
>     cppflags='-msse4.2 -march=corei7 -fno-strict-aliasing -pipe
>    -fstack-protector -I/usr/local/include'
>     ccversion='', gccversion='4.6.1', gccosandvers=''
>     intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
>     d_longlong=define, longlongsize=8, d_longdbl=define,
>    longdblsize=16
>     ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t',
>    lseeksize=8
>     alignbytes=8, prototype=define
>   Linker and Libraries:
>     ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
>     libpth=/usr/local/lib /lib /usr/lib /usr/lib/x86_64-linux-gnu
>    /lib64 /usr/lib64
>     libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
>     perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
>     libc=, so=so, useshrplib=true, libperl=libperl.so
>     gnulibc_version='2.13'
>   Dynamic Linking:
>     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E
>    -Wl,-rpath,/usr/local/lib/perl5/5.15.7/x86_64-linux/CORE'
>     cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib
>    -fstack-protector'
> 
> Locally applied patches:
> 
> 
> ---
> @INC for perl 5.15.7:
>     /usr/local/lib/perl5/site_perl/5.15.7/x86_64-linux
>     /usr/local/lib/perl5/site_perl/5.15.7
>     /usr/local/lib/perl5/5.15.7/x86_64-linux
>     /usr/local/lib/perl5/5.15.7
>     /usr/local/lib/perl5/site_perl
>     .
> 
> ---
> Environment for perl 5.15.7:
>     HOME=/home/rurban
>     LANG=en_US.utf8
>     LANGUAGE (unset)
>     LD_LIBRARY_PATH (unset)
>     LOGDIR (unset)
>    
PATH=/home/rurban/bin:/usr/local/bin:/usr/bin:/bin:/usr/local/games:/usr/games
>     PERL_BADLANG (unset)
>     SHELL=/bin/bash


-- 

Father Chrysostomos


---
via perlbug:  queue: perl5 status: new
https://rt.perl.org:443/rt3/Ticket/Display.html?id=108956