With this build, I am seeing the following failures on VMS:
lib/Thread/Queue/t/02_refs.t is failing on tests 18, 23, 24, and 26
not ok 18 - Empty queue
# Failed test 'Empty queue'
# at ../lib/thread/queue/t/02_refs.t line 173.
# got: '9'
# expected: '0'
not ok 23 - Shared object changed
# Failed test 'Shared object changed'
# at ../lib/thread/queue/t/02_refs.t line 181.
# got: undef
# expected: 'tock'
not ok 24 - Shared object changed
# Failed test 'Shared object changed'
# at ../lib/thread/queue/t/02_refs.t line 182.
# got: undef
# expected: ':('
ok 25 - Scalar ref unchanged
not ok 26 - Shared scalar ref changed
# Failed test 'Shared scalar ref changed'
# at ../lib/thread/queue/t/02_refs.t line 185.
# got: '69'
# expected: 'zzz'
The new test lib/autodie/truncate.t fails on test 3 and then hangs until
it is killed.
EAGLE> mcr [-]ndbgperl.exe -d "-I../" lib/autodie/truncate.t
Daughter DB session started...
1..3
ok 1 - Truncating STDOUT should throw an exception isa autodie::exception
ok 2 - Truncating an unopened file is wrong. isa autodie::exception
not ok 3 - Truncating a normal file should be fine
# Failed test 'Truncating a normal file should be fine'
# at lib/autodie/truncate.t line 52.
# got: 'Can't truncate('VMS::Stdio=GLOB(0x1118210)', '0'):
invalid argument at (eval 47)[/PROJECT_ROOT/PERL-BLEAD/lib/Fatal
.pm:829] line 30
# '
# expected: ''
The hang appears to be here:
*PERLIO PerlIOUnix_close 80449 0000000000006B38 00000000000CB1B8
*PERLIO PerlIOBase_close 79879 00000000000053DC 00000000000C9A5C
*PERLIO PerlIOBuf_close 81783 000000000000984C 00000000000CDECC
*PERLIO PerlIO__close 79117 0000000000002B6C 00000000000C71EC
*PERLIO Perl_PerlIO_close 79130 0000000000002C14 00000000000C7294
*DOIO Perl_io_close 71328 0000000000003824 0000000000127274
*DOIO Perl_do_close 71289 00000000000034A0 0000000000126EF0
*PP_SYS Perl_pp_close 70940 00000000000021AC 0000000000236ABC
*DUMP Perl_runops_debug 81364 00000000000087C4 00000000001B9164
*PERL Perl_call_sv 73195 0000000000005B48 00000000000BD478
*PERL Perl_call_list 80754 000000000000BF78 00000000000C38A8
*PERL perl_destruct 71132 0000000000000F78 00000000000B88A8
EAGLE> mcr [-]ndbgperl.exe "-V"
Summary of my perl5 (revision 5 version 11 subversion 0) configuration:
Snapshot of: 46807d8e809cc127621bf85d9e9cea2f838eb477
Platform:
osname=VMS, osvers=V8.3, archname=VMS_AXP-ithread
uname='VMS eagle V8.3 AlphaServer DS10 617 MHz'
config_args='-"Dusevmsdebug" -Dusedevel -Duseithreads
-Duselargefiles -Dcf_email=SYSTEM -de'
hint=none, useposix=false, d_sigaction=define
useithreads=define, usemultiplicity=undef
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=undef, use64bitall=undef, uselongdouble=undef
usemymalloc=undef, bincompat5005=undef
Compiler:
cc='CC/DECC', ccflags
='/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj
/NOANSI_ALIAS/float=ieee/ieee=denorm/Define=_USE_S
TD_STAT=1',
optimize='/List/Debug/NoOpt',
cppflags='undef'
ccversion='70190015', gccversion='', gccosandvers='undef'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='Link/nodebug', ldflags ='/Debug/Trace/Map'
libpth=/sys$share /sys$library
libs=
perllibs=
libc=(DECCRTL), so=exe, useshrplib=true, libperl=undef
gnulibc_version='undef'
Dynamic Linking:
dlsrc=dl_vms.c, dlext=exe, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags='/Share'
Characteristics of this PERLSHR image:
Compile-time options: DEBUGGING DECCRTL_SOCKETS MULTIPLICITY
PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT
PERL_MALLOC_WRAP PERL_TRACK_MEMPOOL USE_IEEE
USE_ITHREADS USE_LARGE_FILES USE_PERLIO
USE_REENTRANT_API VMS_DO_SOCKETS
Built under VMS
Compiled at Dec 30 2008 21:44:29
%ENV:
PERL5LIB="PROJECT_ROOT:[PERL-BLEAD.lib]"
PERLDB_PIDS="xxx->348837"
PERLSHR="PERL_ROOT:[000000]PERLSHR.EXE"
PERL_BUILD_ROOT="disk$bigdisk:[project_root.perl-blead.]"
PERL_CORE="1"
PERL_DESTRUCT_LEVEL="2"
PERL_ROOT="perl_build_root"
@INC:
/PROJECT_ROOT/PERL-BLEAD/lib
perl_root:[lib.VMS_AXP.5_11_0]
perl_root:[lib]
perl_root:[lib.site_perl.VMS_AXP]
perl_root:[lib.site_perl]
.
-John
wb8...@gmail.com
Personal Opinion Only
