Tue Jan 24 16:00:54 2012: Request 74332 was acted upon.
Transaction: Ticket created by perlbug-follo...@perl.org
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: perlbug-follo...@perl.org
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=74332 >
Forwarding....
On Tue Jan 24 09:37:52 2012, rur...@cpanel.net wrote:
>
> This is a bug report for perl from rur...@cpanel.net,
> 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 <rur...@x-ray.at>
> 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='rur...@cpanel.net'
> -Dperladmin='rur...@cpanel.net' -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
