On Wed, Jun 20, 2007 at 08:47:53AM +0100, Steve Hay wrote: > Tim Bunce wrote: > > file: $CPAN/authors/id/T/TI/TIMB/DBI-1.57.tar.gz > > size: 490304 bytes > > md5: fca667f59dff24058a8e0e8f09e2aad9 > > > >=head2 Changes in DBI 1.57 (svn rev 9639), 13th June 2007 > > > > Fixed t/86gofer_fail tests to be less likely to fail falsely. > > t/86gofer_fail.t now fails with my build of bleadperl (patchlevel 31376) > with VC++ 6.0 on Win32 (perl -V below). This script was passing OK in > DBI-1.56 with the same perl. > > C:\Temp\DBI-1.57>perl -Mblib t\86gofer_fail.t > ok 21 - negative percentage should fail non-randomly > Testing random delay > ok 22 > Unexpected failure: DBD::Gofer::db do failed: Assertion !((sv)->sv_flags & > 0x00010000) failed: file "..\pad.c", line 1505 at > C:\Temp\DBI-1.57\blib\lib/DBI/Gofer/Execute.pm line 624. at t\86gofer_fail.t > line 129.
Execute.pm line 624 is returning a closure, but it doesn't seem particularly magical. Not sure when I'll be able to dig deeper. CC'd to perl5-porters in the hope they can help narrow it down. Tim. > 1..22 > # Looks like your test died just after 22. > > C:\Temp\DBI-1.57>perl -V > Summary of my perl5 (revision 5 version 9 subversion 5) configuration: > Platform: > osname=MSWin32, osvers=5.1, archname=MSWin32-x86-perlio > uname='' > config_args='undef' > hint=recommended, useposix=true, d_sigaction=undef > useithreads=undef, usemultiplicity=undef > useperlio=define, d_sfio=undef, uselargefiles=undef, usesocks=undef > use64bitint=undef, use64bitall=undef, uselongdouble=undef > usemymalloc=y, bincompat5005=undef > Compiler: > cc='cl', ccflags ='-nologo -GF -W3 -Od -MD -Zi -DDEBUGGING -DWIN32 > -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_DEBUGGING_MSTATS > -DUSE_PERLIO -DPERL_MSVCRT_READFIX', > optimize='-Od -MD -Zi -DDEBUGGING', > cppflags='-DWIN32' > ccversion='12.00.8804', gccversion='', gccosandvers='' > intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 > d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10 > ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', > lseeksize=4 > alignbytes=8, prototype=define > Linker and Libraries: > ld='link', ldflags ='-nologo -nodefaultlib -debug > -libpath:"C:\perl5\lib\CORE" -machine:x86' > libpth="C:\Program Files\Microsoft Visual Studio\VC98\lib" > libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib > comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib > netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib > odbc32.lib odbccp32.lib msvcrt.lib > perllibs= oldnames.lib kernel32.lib user32.lib gdi32.lib > winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib > oleaut32.lib netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib > version.lib odbc32.lib odbccp32.lib msvcrt.lib > libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl59.lib > gnulibc_version='' > Dynamic Linking: > dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' > cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug > -libpath:"C:\perl5\lib\CORE" -machine:x86' > > > Characteristics of this binary (from libperl): > Compile-time options: DEBUGGING MYMALLOC PERL_DONT_CREATE_GVSV > PERL_MALLOC_WRAP USE_PERLIO > Locally applied patches: > DEVEL > Built under MSWin32 > Compiled at Jun 14 2007 09:20:24 > @INC: > C:/perl5/lib > C:/perl5/site/lib > . > > --
