Dave Mitchell wrote:
> On Tue, Aug 04, 2009 at 09:42:02PM -0500, Dave Rolsky wrote:
>> On Mon, 3 Aug 2009, Craig A. Berry wrote:
>>
>>> On Mon, Aug 3, 2009 at 7:34 PM, Dave Mitchell<da...@iabyn.com> wrote:
>>>
>>>> I'm planning to have a quick look at the PPI issue tomorrow, but apart
>>>> form that I consider everything done apart form release steps like
>>>> updating Module::CoreList and a quick look at any smoke from today's 
>>>> commits.
>>> David Favor, who reported the PPI problems, also reported trouble with
>>> Moose and maint-5.10:
>>>
>>> http://rt.cpan.org/Public/Bug/Display.html?id=48314
>>>
>>> http://davidfavor.com/archive/perl-bug/moose_fails.txt
>>>
>>> I'm cc'ing moose@perl.org in hopes the Moose gurus can offfer a tuit
>>> or two to help diagnose what's going on (or provide reliable not-a-bug
>>> advice).
>> When the RC0 was announced, I tested a bunch of modules including Moose  
>> against it with no problems.
>>
>> I just tested Class::MOP and Moose git HEAD against RC0 and it still 
>> works fine.
>>
>> Is it possible that there's something wrong the particular perl that the  
>> bug reporter used?
> 
> Thats the general feeling I'm coming to. I'm going to assume these reports
> are spurious unless anyone else reproduces it.

The problem is reproducible with perl-5.10.1 and List::MoreUtils with
version <= 0.24.

Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
  Platform:
    osname=freebsd, osvers=7.2-stable-20090615, archname=amd64-freebsd
    uname='freebsd 7.2-stable-20090615'
    config_args='-sde -Dprefix=/usr/local
-Darchlib=/usr/local/lib/perl5/5.10.1/mach
-Dprivlib=/usr/local/lib/perl5/5.10.1
-Dman3dir=/usr/local/lib/perl5/5.10.1/perl/man/man3
-Dman1dir=/usr/local/man/man1
-Dsitearch=/usr/local/lib/perl5/site_perl/5.10.1/mach
-Dsitelib=/usr/local/lib/perl5/site_perl/5.10.1
-Dscriptdir=/usr/local/bin
-Dsiteman3dir=/usr/local/lib/perl5/5.10.1/man/man3
-Dsiteman1dir=/usr/local/man/man1 -Ui_malloc -Ui_iconv
-Uinstallusrbinperl -Dcc=cc -Duseshrplib -Dinc_version_list=none
-Dccflags=-DAPPLLIB_EXP="/usr/local/lib/perl5/5.10.1/BSDPAN"
-fno-strict-aliasing -pipe -Ud_dosuid -Ui_gdbm -Dusethreads=n
-Dusemymalloc=n'
    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
='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.10.1/BSDPAN" -DHAS_FPSETMASK
-DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector
-I/usr/local/include',
    optimize='-O2 -fno-strict-aliasing -pipe',
    cppflags='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.10.1/BSDPAN"
-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe
-fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.2.1 20070719  [FreeBSD]', 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 =' -Wl,-E  -fstack-protector -L/usr/local/lib'
    libpth=/usr/lib /usr/local/lib
    libs=-lm -lcrypt -lutil
    perllibs=-lm -lcrypt -lutil
    libc=/usr/lib/libc.so, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='
-Wl,-R/usr/local/lib/perl5/5.10.1/mach/CORE'
    cccdlflags='-DPIC -fPIC', lddlflags='-shared  -L/usr/local/lib
-fstack-protector'


Characteristics of this binary (from libperl):
  Compile-time options: PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
USE_64_BIT_ALL
                        USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO
  Built under freebsd
  Compiled at Sep  4 2009 11:16:19
  @INC:
    /usr/local/lib/perl5/5.10.1/BSDPAN
    /usr/local/lib/perl5/site_perl/5.10.1/mach
    /usr/local/lib/perl5/site_perl/5.10.1
    /usr/local/lib/perl5/5.10.1/mach
    /usr/local/lib/perl5/5.10.1



Function any() is broken so results of statements like:

        if ( !any { ( reftype($_) || '' ) eq 'HASH' } @_ ) {

are incorrect.

In 0.25_01 this issue was resolved:

http://cpansearch.perl.org/src/VPARSEVAL/List-MoreUtils-0.25_02/Changes

-- 
Sergey Skvortsov
mailto: s...@protey.ru

Reply via email to