blead-156-g46807d8 on VMS failures

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
[email protected]
Personal Opinion Only